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command processor 



Table of command keywords 

Job Initialization 

Entry to KMON 

Get keyboard command 

Identify command 

CALUKii — Start user-written 

CMDIND — IND command 

INDINI — Start IND program 

Process CCL commands 

IMSCF — See if a command file is installed with priv 

TRMINI — Perform terminal-dependent initialization 

VIRINI — Virtual line initialization 

CPYPRN — Copy context info from parent job 

PRTGRT — Print the logon greeting message 

SETSUF — Set up a start-up command file 
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000000 

000042 

000300 
000000 
000000 
000000 



000042 
003716' 
000300 
OOOOOOG 



TITLE TSKMNl — TSX-Plus Keyboard Monitor 



. DSABL GBL 
. ASECT 

42 
. WORD KMSTK 

300 
. WORD MDT 
. CSECT TSKMON 



i DEFINE INITIAL STACK POINTER 

;# MINUTES OF SYSTEM UPTIME IF DEMO VERSION 



TSKMON: 
TSKMNl: 



TSKMON is the terminal command processing module of the TSX 
operating system. 

TSKMON is broken into three parts: 

TSKMNl is the portion of TSKMON that contains the code to acquire 

a command and branch off to the appropriate command processing routine. 

TSKMN2 contains the actual command processing routines. 

TSKMN3 contains subroutines. 

TSKMON runs in user mode and has memory mapping set up as follows; 
000000-040000 — :> TSGEN 
140000-157777 — > Job context block 
160000-177777 — > Monitor vector (MONVEC) 

Copyright 1978, 1979, 1980, 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988. 
S&H Computer Systems, Inc, 
Nashville, Tennessee 



. MCALL . CSISPC, . TTOUTR, . SRESET 

. MCALL . READW, . TTYIN, . TTYOUT, . PURGE 

. MCALL . CSIGEN, . SAVEST, . REOPEN 

. MCALL . GTLIN, . GTIM, . DATE 

.MCALL . PRINT, . CLOSE, . LOOKUP 

.MCALL . WRITW, . ENTER, . EXIT 

. MCALL . SERR, . HERR, . FPROT, . GVAL, . PVAL 

Global definitions 

. GLOBL INGEMT, INGADR, INPEMT, INPADR, IIBUF 

. GLOBL TSKMON, GREET, PRTGRT, GRTFIN, KMNOTl 

. GLOBL LGOVER, BOTEMT, KEYBUF 

. GLOBL START, PBUFND 

. GLOBL REMNDR, KEYEND, KMSTK 

. GLOBL ALDEMT, DLCEMT, TALEMT, ALCDEV, CDBUF 

. GLOBL TSKMON, TSKMNl 

. GLOBL EM*NUK, ESC, UC IDEF 

. GLOBL GENMON, CDGEMT, CDGADR, GDPEMT, CDPADR 



Global references 



GLOBL KMONCE, K 
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GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 



CMDRSY, CMDRUN. 
CMDWHO, C«DFMT> 
CMDDMT, CMDDSP, 
CMDMEM, OPRCMD.. 



*NOVLN, P2*VIR, PRIVA2, PRIVS2, SC*ERR. SUCF2 

INS3RC, II*PRV, II*NFV, AFCF, II*FLG, EM*MUC 

ISPF5, ISPF6, ISPF7, ISPF9, PRIVFO, SKPSPC, ISPFll 

LBSPRI, GETSYP, JPWDEV, JPWTYP, SBPSUF, CFSTRT 

ABRTAD, ABRTCD, CINFLG, INIUKD, R50KMN, ABRTOV 

C0RUSR> LSW, SERFLG, KMPRMT 

UTRPAD, JSWLDC, MAXMEM, MAXPRI, JPWFLG 

«KINIT> CFSTK, DFJMEM, *SUCF 

SPUBUF/ SXBPNT, LWINDO, CMDSPN, CMDRSM 

RUNCHN, RUNNAM 

CMDHD, fSYSPS 

VEDIT, WILDFL, *NOIN. *N0WTT, $CHACT 

FRIvCO, PRIVAO, PRIVSO, PVNPW, RUNARG 

JS*KMN, JS$ON, LMONHD, EM*QVL, I I**SZ, RSTPRV, EMSSFP 

MSTALC, ALCERR. ABM24, ABM23, ABM22. ABM21, ABM20, SMONHD 

ABM17, ABM16, ABM15, ABM14, ABM13, ABM12, ABMll, JS*L0G 

ABMIO, ABM7, ABM6, ABM5, ABH4, ABM3, ABM2, ABHl, ABl 

AB2, AB3. AB4, AB5, AB6, ABIO. ABll, AB12, AB13, AB14, AB15, AB16 

REGEN, STDNAM. IMVTIO, IMVT52, IMADM3, IMHAZL, MONTXT, FILERM 

LOCMSG, TOOLNG, NOCF, NUMPRM, STRLEN, ABCMD, MISUCL 

URCMD, UNSUP, LINNTX, CMDINS, TM*LN1 

TECO. EDIT, *1STLG, *DIBOL, HANCHN 

CMDYEL 

CMDRST, CMDSHO, CMDSET, CMDSND 
CMDDAT, CMDTIM, CMDMNT, CMDMON 
CMDASN, CMDALC, CMDDLC, CMDREM 
CMDSPO, CMDKIL, CMDPAU, CMDDET, CMDRCL 

CMDACC, CMDUSE, CMDINI, CMDSOZ, UCLCMD, CMDBOT, CMDNAC 

CMDSHT, PROFLG, CMDDEF 

LSW9, *DEBUG, LSWll 

HAZEL. HAZLFL, HAZLNO, MDT 

LRDTIM 

*VTESC 

UCISPC 

LAFSIZ, LFWLIM, ILSW2 

*SLLET 

LSUCF, *CCLRN, *UKMON/ *UKMRN 

KL3CLR, *PRGLK, LSW5 

LSTDL, *DETCH 

LPROJ, LPROG, LUNAME, UPPN 

LCONTM 

USPLCH, SPLCHN 

CFBUF> CFEND, CCLSAV 

MINTIM, LSECPT 

OKFILE, OKFEND, «CLTST, *NOINT 

ERRSPC 

GENTOP, CMDDFF 

*CTRLC, LSW2, UFORM, *INDAB 

*CFABT, INDSTA> INDERR 

UHIMEM 

LSW3, LSW2S, fDUPRN 

LSCCA, fRNIOP, *SETRN 

*ECHO, SLC 

UCHAN, *CFDCC. *CFCCL 

LNPRIIi. *NTGCC 

*DOOFF, LRBFIL, CFIND. LPARNT 

CD**SZ 
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GLOBL LTSCMD, LNSPAC, VU*CL, UCLNAM 

OLOBL *CF0Pr4, PBFEND, CFSP, VUCLMC 

GLOBL UFPTRP, *UCLCF, VUCLOR 

GLOBL «UCLRN 

GLOBL NSPLDV, *UCLCM, $UCLCL 

GLOBL SDEFERi CFCHAN, SCHAIN 

GLOBL CFPNT, *QUIET, DIABFL, KDOCIN, CFSQEZ 

GLOBL DIABNO, VT52N0> LA36N0, LA36FL, POPCF 

GLOBL LSW4, KL4CLR 

GLOBL *KED 

GLOBL PRMPNT 

GLOBL LSTPRM, PRMBUF, PRMEND, CFSPND 

GLOBL LCOL, *TECO 

GLOBL $WILD, ERRSEV, UERSEV>PASLIN 

GLOBL LSTPL 

GLOBL KMPRMT, MXPRMT 

GLOBL SJEMT, RJEMT 

GLOBL CINDAT 

GLOBL TSXLN, TSXSIT> GRTl, TRGRET, LICTXT, SUPCOD, NAMTOP, SUMS, SUCS 

GLOBL LPRG1,LPRG2 

GLOBL LCBIT, LA36, LA120, VT52, VTIOO, DIABLO, QUME 

GLOBL ADM3A, LTRMTP, LA12FL, LA12N0, VT52FL 

GLOBL VTIOFL, VTIONO, ADM3FL 

GLOBL ADM3N0 

GLOBL RESDEV, OKFAND, UKFNND 

GLOBL VT2007, VT2008, VT20N0, VT20FL 

GLOBL LSW6, *SNWTT 

GLOBL *INDDF> *INDRN, IN*ACT, IN*CNT, IN*CMD, INDSAV 

GLOBL LSW7, *CFKIL 

GLOBL MXJPRI 

GLOBL LOGCHN 

GLOBL UCLBLK, UCLDAT 

GLOBL UC*NDC, UC*MDC 

GLOBL PLOAD, DORUN, CMDFRM, CMDDSN, DATTIM, PRGALL 

GLOBL LDCLEN, R50TSX, R50UCL, INDABT 

GLOBL RDCMD, DKSAV, SYSAV, SEARCH 

GLOBL FKILL, ABRTCF, ACRFN, XAREA, FPRINT 

GLOBL PUSHCF, FILNAM, R50DIR, R50SY, R50IND, R50SAV 

GLOBL INDACT, R50DUP, R50PIP, R50KED, R50K52, R50KEX, R50C0M 

GLOBL BLKO, RDERM, R50VIR, RUNEMT 

GLOBL LDNAM, NOCIN, SIZVAL, ASKLNM, BADCMD, KCSIBF 

GLOBL ASDEX, KCSIMS, R50BUF> R50LD0. MNTDEV, DMTARG 

GLOBL NOFLAG, ILLCMD 

GLOBL R50LD, R50DSK, R50LD7 

GLOBL CSIMS2, R50N0, AMBOPT 

GLOBL PRTDEC, DEVUNT, HANIDX, HNBUF 

GLOBL CSIMS1,N0IND 

GLOBL CRLF, R50L0G 

GLOBL SPLHLA 

GLOBL CPUAH, CPUAL, CMDBUF, CALUCL 

GLOBL PRTBUF 

GLOBL EDTFIL, MNFLGS, MNBPC 

GLOBL MNBASE, MNTOP, Momar 1 .. MQNAR2 

GLOBL ALDEX, ALDBLK 

GLOBL SPOEMT 

GLOBL MSGBUF, MSGEND 

GLOBL YELEMT 
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172 . GLOBL AUTHFNi OFFEMT, KILEMT 

173 . GLOBL DIVSDR 

174 GLOBL SIZEMT. CSIMS4>MNTARe, HUPARO, R50TT 

175 GLOBL KMNNAM, CCLNAM/ CMDCCL, CHKTTD 

176 .GLOBL OCTPRT, CSIMS3, OVLYEQ 

177 .GLOBL PRTR50, ALFN, R50DK 

178 .GLOBL DETARG, R50M0N 
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5 




6 




7 




a 




9 


000002 


10 




11 




12 




13 


000012 


14 


000015 


15 


000040 


16 


000007 


17 


000011 


18 


000014 


19 


000033 


20 


000400 


21 


000016 


22 




23 




24 




25 


000001 


26 


000002 


27 


000004 


2e 


000010 


29 


000020 


30 


000040 


31 


000100 



Greeting message control option 

If GREET=2. full greeting message is printed. 

If GREET=li truncated greeting message is printed. 

If GREET=0, greeting message is not printed. (SHOULD NEVER BE 



USED) 



GREET 



Assembly constants 



LF 
CR 

BLANK 
BELL 

FF 
ESC 

BLKWDS 
HANCHN 



12 

15 

40 

07 

11 

14 

33 

256. 

16 



LINE FEED 

CARRIAGE RETURN 

ASCII SPACE 

ASCII BELL 

HORIZONTAL TAB 

FORM FEED 

Escape character 

# OF WORDS IN DISK BLOCK 

Channel used to access handler files 



Flags which are passed to CCL in chain location 510. 



C$TECO 

C*WILD 

C*QUIT 

C*TEST 

C$KED 

C*K52 

C*DIBL 



1 

2 

4 

10 

20 

40 

100 



USE TECO AS DEFAULT EDITOR 

USE IMPLICIT WILDCARD NAMES 

SET TT QUIET IS IN EFFECT 

DISPLAY CCL GENERATED COMMANDS 

DEFAULT EDITOR IS KED 

DEFAULT EDITOR IS K52 

DEFAULT TO DIBOL RATHER THAN DBL 
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i General data 


area 


000000 


075250 


102405 


057760 


UCIDEF: 


. RAD50 


/SY UKMON SAV/ i Default program for U 




000006 


073376 












5 


000010 


000000 


000000 




DIVSOR: 


. WORD 


0,0 


6 


000014 


000000 


000000 




REMNDR: 


. WORD 


0, 


7 


000020 


037266 


023112 


050572 


R50M0N: 


. RAD50 


/ JANFEBMAR APRMAY JUN JULAUOSEPOCTNOVDEC / 




000026 


004322 


050601 


040726 










000034 


040724 


004617 


073630 










000042 


057114 


054756 


014713 








3 


000050 
000056 


OOOOOOG 
OOOOOOG 


OOOOOOG 


OOOOOOG 


KCSIMS: 


. WORD 


CSIMSl, CSIMS2, CSIMS3, CSIMS4 


9 


000060 








IIBUF: 


. BLKW 


14. 
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4 


000114 


0000000 


5 


000116 


0000000 


6 


000120 


OOOOOOG 


7 


000122 


0000000 


8 


000124 


OOOOOOG 


9 


000126 


OOOOOOG 


10 


000130 


OOOOOOG 


11 


000132 


OOOOOOG 


12 


000134 


OOOOOOG 


13 


000136 


OOOOOOG 


14 


000140 


OOOOOOG 


15 


000142 


OOOOOOG 


16 


000144 


OOOOOOG 


17 


000146 


OOOOOOG 


IS 


000150 


OOOOOOG 


19 


000152 


OOOOOOG 


20 


000154 


OOOOOOG 


21 


000156 


OOOOOOG 


22 


000160 


OOOOOOG 


23 


000162 


OOOOOOG 


24 


000164 


OOOOOOG 


25 


000166 


OOOOOOG 


26 


000170 


OOOOOOG 


27 


000172 


OOOOOOG 


28 


000174 


OOOOOOG 


29 


000176 


000000 


30 


000200 


OOOOOOG 


31 


000202 


OOOOOOG 


32 


000204 


OOOOOOG 


33 


000206 


OOOOOOG 


34 


000210 


OOOOOOG 


35 


000212 


OOOOOOG 


36 


000214 


OOOOOOG 


37 


000216 


OOOOOOG 


38 


000220 


OOOOOOG 


39 


000222 


OOOOOOG 


40 


000224 


OOOOOOG 


41 


000226 


OOOOOOG 


42 


000230 


OOOOOOG 


43 


000232 


OOOOOOG 



\ 


Abort error 


message 


i 


. WORD 


EM«SFP 




. WORD 


Eli$OVL 




. WORD 


MSTALC 




. WORD 


ALCERR 




. WORD 


LGOVER 




. WORD 


ABM24 




. WORD 


ABM23 




. WORD 


ABM22 




. WORD 


ABM21 




. WORD 


ABM20 




. WORD 


ABM 17 




. WORD 


ABM 16 




. WORD 


ABM 15 




. WORD 


ABM14 




. WORD 


ABM 13 




. WORD 


ABM12 




. WORD 


ABMll 




. WORD 


ABM 10 




. WORD 


ABM7 




. WORD 


ABM6 




. WORD 


ABM5 




. WORD 


ABM4 




. WORD 


ABM3 




. WORD 


ABM2 




. WORD 


ABMl 


AD 


TMSG; . WORD 







. WORD 


ABl 




. WORD 


AB2 




. WORD 


AB3 




. WORD 


AB4 




. WORD 


AB5 




. WORD 


AB6 




. WORD 


RDERM 




. WORD 


ABIO 




. WORD 


ABll 




. WORD 


AB12 




. WORD 


AB13 




. WORD 


AB14 




. WORD 


ABl 5 




. WORD 


AB16 



-31 

-30 

-27 

-26 

-25 

-24 

-23 

-22 

-21 

-20 

-17 

-16 

-15 

-14 

-13 

-12 

-11 

-10 

-7 

-6 

-5 

-4 

-3 

-2 

-1 



+ 1 

+2 

+3 

+4 

+5 

+6 

+7 

+ 10 

+ 11 

+ 12 

+ 13 

+ 14 

+ 15 

+ 16 
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MACRO TO CAUSE A FATAL ERROR MESSAGE TO BE PRINTED. 



. MACRO FERR 



MSG 



MOV 


R5, -<SP) 


MOV 


MSG, R5 


CALL 


FPRINT 


MOV 


(SP)+, R5 


. ENDM 


FERR 



MACRO TO PRINT A FATAL ERROR MESSAGE, CLEAN DP 
AND THEN JUMP TO RDCMD. 

. MACRO FABORT MSG 

MOV MSG, R5 

JMP FKILL 

. ENDM FABORT 



MACRO TO START A STANDARD OPTION TABLE, 

NAME = 1 TO 4 CHARACTER TABLE NAME. 

NA = NUMBER OF ARGUMENTS PER TABLE ENTRY. 

. MACRO TBLDEF NAME, NA 

NARGS = NA 

. CSECT CMDVKl 

NAME'HD: .WORD 2*NA 

. ENDM TBLDEF 



MACRO TO ENTER AN OPTION TEXT NAME AND A SET OF PARAMETERS 

INTO THE CURRENTLY OPEN TABLE. 

STRNG = ASCII NAME 

A, B,C = SET OF OPTION PARAMETERS TO STORE IN TABLE WITH NAME. 



. MACRO 
. CSECT 

. ASCIZ 
. CSECT 
. WORD 
. WORD 



CMDDEF 
NAMEKl 

/STRNG/ 

CMDVKl 

L 

A 



STRNG, A, B, C 



. IIF 
. IIF 



GE, <NARGS-2> 
GE, <CNARGS-3> 
. ENDM CMDDEF 



WORD 
WORD 



; POINTER TO NAME STRING 



B 
C 



MACRO TO END A SET OF TABLE ENTRIES. 

. MACRO TBLEND 

.CSECT CMDVKl 

. WORD 

. CSECT TSKMON 

. ENDM TBLEND 
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8 


000234 


9 


000002 


10 


000006 


11 


000012 


12 


000016 


13 


000022 


14 


000026 


15 


000032 


16 


000036 


17 


000042 


IS 


000046 


19 


000052 


20 


000056 


21 


000062 


22 


000066 


23 


000072 


24 


000076 


25 


000102 


26 


000106 


27 


000U2 


28 


000116 


29 


000122 


30 


000126 


31 


000132 


32 


000136 


33 


000142 


34 


000146 


35 


000152 


36 


000156 


37 


000162 


38 


000166 


39 


000172 


40 


000176 


41 


000202 


42 


000206 


43 


000212 


44 


000216 


45 


000222 


46 


000226 


47 


000232 


48 


000236 


49 


000242 


50 


000246 


51 


000252 


52 


000256 


53 


000262 


54 


000266 


55 


000272 


56 


000276 


57 


000302 
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. SBTTL Table of command keywords 

Define commands 

Arg 1 = command string name 
Arg 2 = processing routine 

TBLDEF CMD. 1 

CMDDEF R, CMDRSY 

CMDDEF RU*N> CMDRUN 

CMDDEF REN#AME, CMDCCL 

CMDDEF REM#OVE, CMDREM 

CMDDEF RESttUME, CMDRSM 

CMDDEF RESE*T, CMDRST 

CMDDEF COP*Y, CMDCCL 

CMDDEF DIR#ECTORY, CMDCCL 

CMDDEF ED*IT, CMDCCL 

CMDDEF TY«PE, CMDCCL 

CMDDEF PR I«NT, CMDCCL 

CMDDEF SH*OW, CMDSHO 

CMDDEF SE#T, CMDSET 

CMDDEF SEN#D, CMDSND 

CMDDEF YE«LL, CMDYEL 

CMDDEF W«HO, CMDWHO 

CMDDEF SY*STAT, CMDWHO 

CMDDEF DEL*ET£, CMDCCL 

CMDDEF COM*PILE, CMDCCL 

CMDDEF LIN#K, CMDCCL 

CMDDEF EX«ECUTE, CMDCCL 

CMDDEF COB#OL, CMDCCL 

CMDDEF FOR»TRAN, CMDCCL 

CMDDEF FORM, CMDFRM 

CMDDEF FORMA«T, CMDFMT 

CMDDEF DIB»OL, CMDCCL 

CMDDEF MA*CRO, CMDCCL 

CMDDEF MAK#E, CMDCCL 

CMDDEF DA*TE, CMDDAT 

CMDDEF TI#ME, CMDTIM 

CMDDEF MO-K-UNT, CMDMNT 

CMDDEF MON*ITOR,CMDMON 

CMDDEF DIS»MOUNT, CMDDMT 

CMDDEF DISP«LAY, CMDDSP 

CMDDEF DEF*INE, CMDDEF 

CMDDEF OF#F> CMDOFF 

CMDDEF LOG«OFF, CMDOFF 

CMDDEF KJ#OB, CMDOFF 

CMDDEF BY*E, CMDOFF 

CMDDEF AS#SieN, CMDASN 

CMDDEF DEA, CMDDSN 

CMDDEF DEAS#SIGN, CMDDSN 

CMDDEF ALLO#CATE, CMDALC 

CMDDEF DEAL*LOCATE, CMDDLC 

CMDDEF IND*CMDIND 

CMDDEF DIF*FERENCES, CMDCCL 

CMDDEF DU*MP, CMDCCL 

CMDDEF H*ELP, CMDCCt 

CMDDEF ME*MORY> CMDMEM 











TSKMNi - 


— TSX- 


Table of comma 




58 


000306 


59 


000312 




60 


000316 




61 


000322 




62 


000326 




63 


000332 




64 


000336 




65 


000342 




66 


000346 




67 


000352 




68 


000356 




69 


000363 




70 


000366 




71 


000372 




72 


000376 




73 


000402 




74 


000406 




75 


000412 




76 


000416 




77 


000422 




78 


000426 




79 


000432 


80 


000436 




81 


000442 




82 


000446 


83 


000452 




84 


000456 




85 


000462 




86 


000466 
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CMDDEF BA*CKUP, CMDCCL 

CMDDEF PRO*TECT/ CMDCCL 

CMDDEF UNP»ROTECT, CMDCCL 

CMDDEF OP*ERATOR. DPRCMD 

CMDDEF SP»OOL, CMDSPO 

CMDDEF CR*EATE, CMDCCL 

CMDDEF KI*LL, CMDKIL 

CMDDEF PA*USE, CMDPAU 

CMDDEF REC*ALL. CMDRCL 

CMDDEF DET#ACH, CMDDET 

CMDDEF AC#CESS, CMDACC 

CMDDEF NOAC*CESS.. CMDNAC 

CMDDEF US*E, CMDUSE 

CMDDEF INI#TIALIZE, CMDINI 

CMDDEF SQ*UEEZE, CMDSQZ 

CMDDEF L I B*RARY, CMDCCL 

CMDDEF TE*CO, CMDCCL 

CMDDEF UC#L, UCLCMD 

CMDDEF MU*NG, CMDCCL 

CMDDEF CL«OSE, RDCMD 

CMDDEF GT, RDCMD 

CMDDEF INS*TALL, CMDINS 

CMDDEF LO*AD, RDCMD 

CMDDEF SU*SPEND> CMDSPN 

CMDDEF UNL*OAD, RDCMD 

CMDDEF BO*OT, CMDBOT 

CMDDEF «ST«OP> CMDBOT 

CMDDEF «SH*UTDOWN. CMDSHT 
TBLEND 
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I 
I 



t 
I 

i 

i 
i 
i 
i 

I 



2 000234 


000000 


000000 


000000 


A3DEX 


. WORD 


0, 0, 


0, 


000242 


000000 














3 000244 


015270 


012445 




DKCOM 


. RAD50 


/DK 


COM/ 


4 000250 


075250 


073376 




SYSAV 


. RAD50 


/SY 


SAV/ 


5 000254 


015270 


073376 




DKSAV 


. RAD50 


/DK 


SAV/ 


6 000260 


100040 






R50TT 


. RAD50 


/TT 


/ 


7 000262 


015270 






R50DK 


. RAD50 


/DK 


/ 


8 000264 


075250 






R50SY 


. RAD50 


/SY 


/ 


9 000266 


046537 






R50L0G: . RAD50 


/LOG/ 


10 000270 


016003 






R50DSK: . RAD50 


/DSK/ 


11 000272 


042614 






R50KED: . RAD50 


/KED/ 


12 000274 


045130 






R50K52; . RAD50 


/K52/ 


13 000276 


042640 






R50KEX: . RAD50 


/KEX/ 


14 000300 


062570 






R50PIP: . RAD50 


/PIP/ 


15 000302 


015172 






R50DIR: . RAD50 


/DIR/ 


16 000304 


016130 






R50DUP: . RAD50 


/DUP/ 


17 000306 


035164 






R50IND: . RAD50 


/IND/ 


IS 000310 


100020 






R50TSX: . RAD50 


/TSX/ 


19 000312 


101704 






R50UCL: . RAD50 


/UCL/ 


20 000314 


105372 






R50V1R: . RAD50 


/VIR/ 


21 000316 


045640 






R50LD 


. RAD50 


/LD 


/ 


22 000320 


045676 






R50LD0: . RAD50 


/LDO/ 


23 000322 


045705 






R50LD7: . RAD50 


/LD7/ 


24 000324 


012445 






R50C0M: . RAD50 


/COM/ 


25 000326 


073376 






R50SAV: . RAD50 


/SAV/ 


26 000330 


004056 






ALDEX 


. RAD50 


/ALN/ 


27 000332 


015270 


004051 


026760 


ALDBLK: . RAD50 


/DK 


ALIGN ALN/ 


000340 


004056 














2S 000342 


075250 


003273 


021113 


AUTHFN: . RAD50 


/SY 


ACCESSTSX/ 


000350 


100020 














29 000352 


075250 


100003 


051646 


KMNNAM: . RAD50 


/SY 


TSKMONSAV/ 


000360 


073376 














30 000362 


075250 


011504 


000000 


CCLNAM: . RAD50 


/SY 


CCL SAV/ 


000370 


073376 














31 000372 


075250 


035164 


000000 


INDNAM: . RAD50 


/SY 


IND SAV/ 


000400 


073376 














32 000402 


075250 


045640 


000000 


LDNAM 


. RAD50 


/SY 


LD SYS/ 


000410 


075273 














33 000412 


043327 


053600 




R50KMN: . RAD50 


/KMON / 


34 000416 


075250 


114730 


000000 


HNBUF 


. RAD50 


/SY 


XXX TSX/ 


000424 


100020 














35 000426 

36 

37 000430 


054730 






R50N0 


. RAD50 


/NO 


/ 


000000 






i 

DEVUN' 


r: . WORD 







38 000432 


000000 






ASKLNr 


1: . WORD 







39 000434 


000000 






INDRFt 


-: . WORD 







40 000436 


000000 






QUOTFl 


.: . WORD 







41 000440 








FILNAr 


1: . BLKW 


5 




42 000452 








XAREA 


. BLKW 


8. 




43 000472 








RSOBUf 


- : . BLKW 


2 




44 000476 


000000 






CPUAH 


. WORD 







45 000500 


000000 






CPUAL 


. WORD 







46 000502 


000000 






HANIDJ 


<: .WORD 







47 000504 


000000 


000000 


000000 


MNTDE^ 


J: . WORD 


0,0, 


0,0 


000512 


000000 














48 000514 


000000 






CMDENl 


3; , WORD 





; Point 



I 

i 
t 
€ 
f 

i 
t 

€ 

I 



; Pointer past end of current command string 



C 
I 



I 
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Table of command keywords * 

49 000516 000000 000000 000000 ALCDEV: .WORD 0,0,0,0 i Name of dev being allocated or deallocated 



y^ y^ *^ !-• #-* M *^ y^ jTv /^ j<^ y-v 
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000526 
000530 



000544 
000546 



000550 
000552 



c 

3 

4 

5 

6 

7 

8 

9 000532 
10 000534 
U 000536 
12 
13 
14 

15 000540 

16 000542 
17 

IB 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 

30 000554 

31 000556 
32 

33 
34 

35 000560 

36 000562 
37 

38 
39 

40 000564 

41 000566 

42 000570 

43 000572 

44 000716 
45 

46 
47 

48 000716 

49 000720 
50 

51 
52 

54 000724 

55 

56 

57 



000 
000000 



000 
000001 
000000 



OOO 
000000 



000 
000000 



000 
000504 ' 



000 
000504 ' 



001 
000000 



000 
000000 
000572 ' 



000 
000516' 



000516' 



126 



126 



13c 



141 



134 



135 



160 



127 



156 
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i Emt arg block to run a program. 

i 

RUNEMT: . BYTE 0, 126 
. WORD 

Emt arg block to start a spooler. 

SPGEMT: . BYTE 0, 126 
. WORD 1 
. WORD 

i 

j Emt arg block to control detached jobs. 
J 

DETARG: . BYTE 0, 132 
. WORD 

> 

> Emt argument block to set the size of the job 

i 

SIZEMT: . BYTE 0, 141 
SIZVAL: .WORD 

f 

; Emt arg block to mount a File structure. 

MNTARG: . BYTE 0, 134 
. WORD MNTDEV 

Emt arg block to dismount a file structure. 

DMTARG: . BYTE 0, 135 
. WORD MNTDEV 



Emt arg block to copy the file status and privileges from a parent job 



CPYCXT: .BYTE 1,160 
. WORD O 



Emt arg block to send a message to a line. 



YELEMT: . BYTE 0, 127 

. WORD 

- WORD MSGBUF 

MS6BUF: . BLKB 84. 

MSGEND: 



Emt to allocate a device 

ALDEMT: .BYTE 0,156 
. WORD ALCDEV 

Emt to deallocate a device 

DLCEMT: . BYTE 1, 156 
. WORD ALCDEV 

Emt to determine if a device is allocated to another user 



iPointer to device spec 



I 
ff 

i 
i 



t 
« 

i 
( 
4 
I 
I 
i 



I 
I 
I 



I 



I 

I < 

I 

I < 

« 

i 

I 

I 



» 



c 

i 
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156 



58 


000726 


002 


59 


000730 


000516' 


60 






61 






62 






63 


000732 


000 


64 


000734 


000010 


65 


000736 


000000 


66 


000740 


OOOOOOG 


67 


000742 


003362 ' 


68 






69 






70 






71 






72 


000744 


000 


73 


000746 


000011 


74 


000750 


000000 


75 


000752 


OOOOOOG 


76 


000754 


003362 ' 


77 






78 






79 






SO 


000756 


000 


81 


000760 


000010 


82 


000762 


000000 


83 


000764 


OOOOOOG 


84 


000766 


000060' 


85 






86 






87 






88 


000770 


000 


89 


000772 


000011 


90 


000774 


000000 


91 


000776 


OOOOOOG 


92 


001000 


000060 ' 


93 






94 






95 






96 


001002 


000 


97 


001004 


000002 


98 


001006 


000000 


99 






100 






101 






102 


001010 


000 


103 


001012 


000003 


104 


001014 




105 






106 






107 






108 


001020 


000 


109 


001022 


000004 


110 


001024 


004340 ' 


111 






112 






113 






114 


001026 


000 



126 
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TALEMT: . BYTE 2, 156 
. WORD ALCDEV 

i 

.: Emt argument block to read a cached device descriptor block into CDBUF 

iSubfunction code (peek) 

i Address of block within kernel 

; Amt of data to get 

; Destination buffer 

Emt argument block to co"" a cached device descriptor block from CDBUF 
back into the kernel data area. 



126 



126 



126 



126 



126 



126 



126 



CDGEMT: 


. BYTE 


0, 126 




. WORD 


10 


CDGADR: 


. WORD 







. WORD 


CD**SZ 




. WORD 


CDBUF 



CDPEMT: . BYTE 
. WORD 

CDPADR: . WORD 
. WORD 
. WORD 



0, 126 

11 



CD**SZ 

CDBUF 



j Subfunction code <poke) 
iAddress of block within kernel 



; Destination buffer 
Emt argument block to move INSTALL entry from kernel into IIBUF 



INOEMT: . BYTE 0, 126 

. WORD 10 

INGADR; . WORD 

.WORD II**SZ 

-WORD IIBUF 



; Subfunction code <peek> 
iAddress of block within kernel 
; Amt of data to get 
J Destination buffer 



Emt argument block to store INSTALL entry into kernel data 



INPEMT: . BYTE 0, 126 

.WORD 11 

INPADR: . WORD 

.WORD II««SZ 

.WORD IIBUF 



iSubfunction code <poke) 

; Address of block within kernel 

> Amt of data to move 

; Source buffer 



Emt arg block to log off the current job. 

OFFEMT: . BYTE 0, 126 
. WORD 2 
.WORD i 0==>DBfault time to drop DTR 

Emt to update running copy of a handler. 

HUPARG: . BYTE 0, 126 
. WORD 3 
. BLKW 2 



Emt to reboot the system. 



BOTEMT: . BYTE 
. WORD 



0, 126 

4 

START 



Emt to force logoff of a job. 
KILEMT: . BYTE 0, 126 



I 
I 

i 

f 



i 
i 

C 
( 
4 
f 
I 
« 



i 

i 



i 
t 
i 
I 
c 

i 

i 
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115 


001030 


000005 


116 


001032 


000000 


117 






lis 






119 






120 


001034 


000 


121 


001036 


000012 


122 


001040 


000000 


123 






124 






125 






126 


001042 


001 


127 


001044 


000012 


128 


001046 


000000 


129 






130 






131 






132 


001050 


OOOG 


133 


001052 


000000 


134 


001054 


000001 


135 






136 






137 






138 






139 


001056 


000 


140 


001060 


000014 


141 


001062 


000000 


142 


001064 


000000 


143 


001066 


000000 


144 






145 






146 






147 


001070 


000 


148 


001072 


000000 


149 






150 






151 






152 


001074 


000 


153 


001076 


001 


154 


001100 


120 


155 


001102 


001 


156 


001104 


000000 


157 






158 






159 






160 


001106 


001 


161 


001110 


001 


162 






163 






164 






165 


001112 


ooa 


166 


001114 


000 


167 






168 






169 






170 


001116 


000 


171 


001120 


000000 



126 



126 



151 



126 



150 



161 
001 
020 
000 



161 
000 



161 
000 



136 
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. WORD 5 
. WORD 

Emt to suspend execution of a job 

SJEMT: . BYTE 0, 126 
. WORD 12 
. WORD 

Emt to resume execution of a job 

RJEMT: . BYTE 1, 126 

. WURU lei 

. WORD 

EMT arg block to set "hold" mode for a spooled log file 

SPLHLA: .BYTE LOGCHN, 151 
. WORD 
. WORD 1 

EMT arg block to copy data from the context block of another job 
into our context block. 



EMCXCP: . BYTE 0, 126 

. WORD 14 

. WORD 

. WORD O 

. WORD 



;# of job lue are copying from 
iAddress of item being copied 
i Number of bytes to copy 



EMT arg block to set the job execution priority 



PRIEMT: .BYTE 0,150 
. WORD 



EMT arg block to create a window for this job 



MAKWIN: . BYTE 0, 161 

. BYTE 1, 1 

. BYTE 80. . 16. 

.BYTE 1,0 

. WORD 



EMT arg block to select window 1 as the current window 



MAPWIN: . BYTE 1, 161 
.BYTE 1,0 



EMT arg block to delete all temporary display windows for the job 



DELWIN: . BYTE 2, 161 
. BYTE O, 



Emt arg block to initiate performance monitoring. 



MONARl: . BYTE 0, 136 
MNBASE: . WORD 



I 
I 



I 

4 

I 



I 
€ 
€ 

i 
t 
I 
€ 

C 

* 

I 
C 
4 
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172 001122 000000 

173 001124 000000 

174 001126 000000 
175 

176 

177 

178 001130 001 

179 

180 

181 

182 001132 002 

183 001134 000000 



136 



157 



MNTOP: .WORD 
MNBPC: .WORD 
MNFLGS: . WORD 

Emt arg block to start performance monitoring. 

M0NAR2: . BYTE 1, 136 

Emt arg block to broadcast job status change info to monitoring jobs 



GENMON: 



BYTE 
WORD 



2. 157 




I 
I 

4 
I 



i store value to broadcase here 



< 
i 
< 
i 
« 
I 
I 
I 
I 
I 
I 
I 



I 

I « 
\ 

r 

i 
I 
i 
I 

I 

I 

I < 

I 

I € 



TSKMNl — TSX-Plus Keyboard Hon 
Table of command keywords 



1 


001136 




2 


001342 




3 


001342 




4 


001362 




5 


001362 




6 




001362' 


7 




00 1 362 ' 


e 


003362 




9 






10 


003406 




11 




003716' 


12 






13 






14 






15 






16 


003716 




17 


004316 


200 


18 


004317 


000 


19 


004320 


000 


20 


004321 


000 


21 


004322 


000 


22 


004323 


000 


23 


004324 


123 




004327 


000 


24 


004330 


123 




004333 


111 




004336 


040 


25 






26 






27 







131 

131 
116 
000 



RO V 


05. 05 


Thursday 


19-Jan-S9 




CMDBUF 


. BLKW 


66. 




CBFEND 








KEYBUF 


. BLKW 


8. 




KEYEND 








BLKO: 


. BLKW 


512. 




KCSIBF 


= 


BLKO 




INBUF 


=s 


BLKO 




CDBUF: 


. BLKW 


10. 




; TSKMON STACK 








. BLKW 


100. 




KMSTK 


= 






i 

i BYTE DATA 






i PRINT BUFFER 






PRTBUF 


. BLKB 


256. 




PBUFND 


, BYTE 


200 




NOFLAG 


. BYTE 







DOLRAT 


. BYTE 







DOT AT: 


. BYTE 







COLEQL 


. BYTE 







NOUCL: 


. BYTE 





072 


SYTXT: 


. ASCIZ 


/SY: / 


072 


SYINTX 


. ASCIZ 


/SY: IND / 


104 









Page 9 



END OF CMDBUF 
Used by SEARCH 
End of KEYBUF 



to hold keuujords 



OVERLAY WITH BLKO 
OVERLAY WITH BLKO 
Should be at least 



as large as CD$$SZ 



INDICATES *e SCANNED 
INDICATES #e SCANNED 
INDICATES : = SCANNED 
Non-zero==>Don 't call 



UCL for this command 



EVEN 



I 

f 
I 
I 



c 
f 

< 

i 
i 
I 
I 

< 

c 
I 
t 
f 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



004340 
004342 



004346 
004352 
004354 



004360 
004366 
004370 



004374 
004402 
004404 
004420 
004426 
004434 



004442 
004444 
004450 
004454 
004460 
004464 



004466 
004474 
004500 
004504 
004506 
004512 
004516 
004524 
004532 
004540 
004546 
004554 
004560 
004564 
004570 



000240 
116701 



105767 
001402 
110167 



032761 
001402 
000167 



026727 
001406 

016761 
042761 
042761 



010105 
070527 
062705 
012704 
112725 
077403 



012767 
016700 
072027 
001002 
012700 
010067 
012767 
012767 
112767 
112767 
1 1 2767 
012703 
012704 
012700 
1 1 2324 



. SBTTL Job Initialization 
ENTER TSKMON AT KMNSTR. 



START: 



OOOOOOG 



NOP 
MOVE 



CORUSR. Rl 



; DEBUGGING BPT INSERTION POINT 
i GET USER INDEX # 



OOOOOOG 
OOOOOOG 



IF THE SYSTEM-WIDE ONCE-ONLY INITIALIZATION HASN'T BEEN DONE YET, 

THEN DISABLE THE JOB SCHEDULER TO ENSURE THIS JOB GETS A CHANCE TO DO IT 

BEFORE ANYBODY ELSE CAN RUN. 

Has once only initialization been done yet? 

Br if it has alreaavi been done 

If not, disable scheduling of any other jobs 

INITIALIZATION PERFORMED FOR LINE THE FIRST TIME 
TSKMON IS ENTERED. 



TSTB 


KMONCE 


BEQ 


40* 


MOVE 


R1,EXCJ0B 



OOOOOOG OOOOOOG 40*: 
001060 



BIT #*KINIT, LSW<R1) i IS THIS 1ST ENTRY FOR THIS LINE? 
BEQ 10* iBR IF YES 

JMP KMNOTl 



Makf? sure TSGEN hasn't bpen modified without relinking TSKMON. 



OOOOOOG 123456 10*: 



OOOOOOG OOOOOOG 22*: 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



CMP GENTOP, #123456 ; DOES THIS LOOK LIKE THE TOP OF TSGEN? 

BEQ 22* iBR IF OK 

FERR #REGEN J NEED TO RELINK TSKMON 

MOV MINTIM, LC0NTM<R1);SET JOB LOG-ON TIME 

BIC #*CFKIL,LSW6(R1) i IN CASE OF -^C'^C DURING GETSYP 

BIC #*CTRLC, LSW<R1) ; DO NOT DO CONTROL -C ABORT 



Initially set the job name to all blanks 



000006 
OOOOOOG 
000014 
000040 



MOV R1,R5 

MUL #6, R5 

ADD #LUNAME, R5 

MOV #12. ,R4 

MOVB #' . (R5)+ 

SOB R4, 24* 



GET JOB INDEX # 

* 12. BYTES PER ENTRY 

POINT TO USER NAME ENTRY FOR THIS LINE 

i SET USER NAME TO BLANKS 



Initialize cells in job context block 



OOOOOOG OOOOOOG 

OOOOOOG 

000012 

177774 
OOOOOOG 

OOOOOOG OOOOOOG 
000004G OOOOOOG 
OOOOOOG OOOOOOG 
000056 OOOOOOG 



25*: 



000200 
OOOOOOG 
OOOOOOG 
000006 



00000 IG 



3*: 



MOV 


#CFSTK, CFSP 


MOV 


DFJMEM, RO 


ASH 


#10. ,R0 


BNE 


25* 


MOV 


#177774, RO 


MOV 


RO, MAXMEM 


MOV 


#NAMTDP, UHIMEM 


MOV 


#SPUBUF+4, SXBPNT 


MOVB 


#MAXPRI, MXJPRI 


MOVB 


#'. , KMPRMT 


MOVB 


#200. KMPRMT+1 


MOV 


#STDNAM, R3 


MOV 


#UFORM, R4 


MOV 


#6, RO 


MOVB 


<R3)+, (R4) + 



COMMAND FILE STACK 

GET MAX # KB JOB IS ALLOWED TO USE 

CONVERT TO ADDRESS 

BR IF DIDN'T OVERFLOW 64KB 

SET MAX MEMORY AS 64KB 

SET AS TOP OF MEMORY FOR JOB 

HIGHEST LEGAL ADDRESS FOR JOB 

SPOOL FILE BUFFER 

SET MAXIMUM JOB PRIORITY 

SET UP DEFAULT KMON PROMPT (". ") 

TERMINATE PROMPT STRING 

SET UP CURRENT (DEFAULT) SPOOL FORM NAME 



i 

i 
t 

I 
i 
i 



i 
i 
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58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

SO 

81 

82 

S3 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 



004572 
004574 



004602 
004606 
004614 
004622 
004626 

r\r\A (.•rtt-K 

004634 
004640 
004644 
004650 
004654 
004660 
004662 
004666 
004670 
004676 
004700 
004704 
004710 
004714 
004720 
004724 



004730 
004734 
004736 



004756 
004762 
004764 
005004 
005006 
005010 
005012 
005014 
005016 
005022 
005030 
005036 
005072 



005100 
005106 



077002 



005067 
012767 
012767 
012700 
005002 
012703 
010362 
010362 
010362 
010362 
062702 
077013 
020127 
003016 
032761 
001412 
012700 
040067 
040067 
040067 
040067 
004767 



105767 
001410 



016705 
001446 

103435 
010100 
006200 
005300 
070500 
012702 
012762 
016762 



OOOOOOS OOOOOOG 



SOB RO, 3* 

MOVB #SC*ERR, ERR3EV 



i ERROR ABORT SEVERITY LEVEL 



OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG 

177777 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

000002 

OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG i) 



Start job with ail privileges granted and no access restrictions 
Privileges may be changed by running LOGON or by use of 
the SET PROCESS/AUTH/PRIV=<iist) command. 

Say no access restrictions 

Init last access entry ptr 

Init first noaccess entry ptr 

Get # words in each privilege vector 

Set index for Ist word 



77*: 



32*: 



CLR 


RESDEV 


MOV 


#OKFILE, OKFAND 


MOV 


#OKFEND, OKFNND 


MOV 


#PVNPW, RO 


CLR 


R2 


MOV 


#177777, R3 


MOV 


R3. PRIVA0(R2> 


MOV 


R3, PRIVS0<R2) 


MOV 


R3, PRIVF0<R2) 


MOV 


R3, PRIVC0(R2) 


ADD 


#2>R2 


SOB 


RO. 77* 


CMP 


Rli #LSTPL 


BGT 


32* 


BIT 


#*NOVLN, 1LSW2(R 


BEQ 


32* 


MOV 


#P2*VIR,R0 


BIC 


RO, PRIVA2 


BIC 


RO, PRIVS2 


BIC 


RO, PRIVFO 


BIC 


RO, PRIVCO 


CALL 


RSTPRV 



Get all privilege flags turned on 

Authorized privileges 

Set privileges 

Command file privileges 

Current (program) privileges 

Increment vector index 

Set all privileges 

Is this a primary line? 

Br if not 
l);Disallow subprocess usageT-* 
; Br if don't need to disallow subprocesses 
; Get subprocess privilege flag 
; Remove subprocess privilege 



Setup some other privilege flags 



Open spool file channel 

TSTB NSPLDV ; ARE THERE ANY SPOOLED DEVICES? 

BEQ 28* iBR IF NOT 

.REOPEN #XAREA, #USPLCH, #SPLCHN ; OPEN CHANNEL FOR WRITES TO SPOOL FILE 

Initialize TSXUCL data base for this job 

<Say that there are no user-defined commands yet) 



OOOOOOG 



JS*: 



001362' 

177777 

OOOOOOG 



OOOOOOG 
OOOOOOG 



MOV 

BEQ 

. LOOKUP 

BCS 

MOV 

ASR 

DEC 

MUL 

MOV 

MOV 

MOV 

. WRITW 

. CLOSE 



UCLBLK, R5 
2* 



Get # blocks in file per job 

Br if TSXUCL data file not needed 



#XAREA, #1, #UCLDAT ; Lookup TSXUCL data file 



2* 

R1,R0 

RO 

RO 

RO, R5 

#BLKO, R2 

#-1, UC*NDC(R2) 

VUCLMC,UC*MDC<R2) 



Br if not there 
Get job index number 
Convert to job number 
Make first job # O 

Compute block number of data for this job 
Point to data buffer 

Set flag saying TSXUCL should init data 
i Set maximum allowed number of commands 



#1 



Set default editor 



126727 
001413 



OOOOOOG OOOOOOG 2*: 



CMPB VEDIT, #EDIT 
BEQ 7* 



#256. , R5 ; Write out data for job 
; Close TSXUCL file 



i IS DEFAULT EDITOR EDIT? 
i BR IF YES 



ff 

€ 



€ 
I 

I 
\ 
C 
4 



I 
I 

f 

I 

I 

I 
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I 
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115 

4 4/ 

1 lO 

117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 



005110 
005116 
005120 
005126 
005130 



005136 
005144 
005146 
005154 
005162 
005164 
005172 
005200 
005202 



126727 

052761 
000403 
052761 



126727 
001003 
052761 
126727 

WW i. ww»J 

052761 
126727 
001003 



OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 



\1%: 



CMPB VEDIT,#TECO ; IS DEFAULT EDITOR TECD? 

BNE 21* i BR IF NOT 

BIS #*TeC0, LSW5<R1) ; SET DEFAULT EDITOR FOR JOB 

BR 7* 

BIS #*KED, LSW5<R1) ; DEFAULT EDITOR MUST BE KED 



Set default UCL FIRST/MIDDLE/LAST 



OOOOOOG 000001 7%: 



OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 



OOOOOOG 
000002 



30*: 



OOOOOOG 
000003 29* : 



f^f\j'\f^f\.ri\ /^ j's r\ t^ r^ jr\^ r\. f^ 



CMPB 

BNE 

BIS 

CMPB 

BNE 

BIS 

CMPB 

BNE 

BIS 



VUCLOR, #1 ; SET UCL FIRST? 
30* i BR IF NOT 

#*UCLCF, LSW7(R1) 
VUCLOR, #2 i SET UCL MIDDLE? 



29* 



;BR IF NOT 



#*UCLCM, L3W7<R1) 

VUCLOR, #3 J SET UCL LAST? 
27* ; BR IF NOT 

#*UCLCL/ LSW7(R1 ) 



005210 052761 OOOOOOG OOOOOOG 



Set default SL mode 
27*: BIS #*SLLET* LSW7<R1 )i Default SL substitution on 
Set default wildcard flag 



005216 
005222 
005224 
005232 
005236 
005240 
005244 



005246 
005254 
005256 



005262 
005270 
005274 



005276 
005302 



005727 
001403 
052761 
020127 
003022 
020127 
003021 



032761 
001402 
004767 



016767 
012700 
104375 



004767 
000402 



OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 



OOOOOOG 



31*; TST #WILDFL 

BEQ 8* 

BIS #*WILD, LSW5<R1) 

8*: CMP R1,#LSTDL 

BGT 12* 

CMP R1,#LSTPL 

BGT 1* 



EXPLICIT OR IMPLICIT WILDCARDS? 

BR IF EXPLICIT 

SET IMPLICIT WILDCARD FLAG 

REAL OR VIRTUAL LINE? 

BR IF VIRTUAL 

REAL OR DETACHED? 

BR DETACHED 



OOOOOOG OOOOOOG 
OOOOOOG 



See if uie need to get a system password (primary line only). 

BIT #*SYSPS* LSW2(R1 >; Do we need to accept a system password? 

BEQ 13* J Br if not 

CALL GETSYP i Accept system password 

Mount SY device for this job (primary line only). 



172776 
000550 ' 



173214 13*: 



MOV R50SY, MNTDEV 
MOV #MNTARG, RO 
EMT 375 



i SET SY AS DEVICE TO MOUNT 
; MOUNT SY 



Terminal dependent initialization for primary lines. 



004714 



CALL 
BR 



TRMINI 
1* 



j Do terminal-dependent initialization 



Initialization for subprocesses only. 

Print n> to show which subprocess we are switching to. 



005304 004767 005170 



12*: CALL VIRINI .'Do virtual line initialization 

i Do some initialization for detached jobs 
005310 032761 OOOOOOG OOOOOOG 1*: BIT #*DETCH> LSW(R1 ) ils this a detached job? 



I 

f 
f 
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I 

I 
i 
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nnnnnnn 

^^ -u^ v/ w w vf ^^ 



BEQ 

Mm J 
u V 



174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 



GRTINI -Br if not 

#*ECHOi*LC!*DEFER> LSW2<R1) ; Init control flags 



Perform code which is executed only once each time TSX is started 
and Print TSX greeting message 



005326 
005332 
005334 
005340 
005344 



105767 
001402 
004767 
004767 
016161 



OOOOOOG 

OOOOOOG 

005774 

OOOOOOG 



OOOOOOG 



GRTINI: TSTB 
BEQ 
CALL 

3*: CALL 
MOV 



KMONCE ; Has once only code been done yet? 

3* j Br if it has already been done 

KMINIT i If not- call once only code 

PRTORT ; Print the TSX-Plus logon greeting 

LSW2<R1),LSW2S(R1) ; SAVE IN CASE OF CTRL-C REENTRY 



005352 004767 005254 



005356 052761 OOOOOOG OOOOOOG 



005364 
005370 
005372 
005376 
005400 
005402 
005406 
005410 
005412 



020127 
101004 
016102 
001407 
000402 
012702 
105712 
001402 
004767 



OOOOOOG 
OOOOOOG 

OOOOOOG 

006324 



is job has a parent job* copy file context and privilege from parent 
CALL CPYPRN J Copy info from parent job 

Set flag saying job initialization has been done 

BIS #*KINIT, LSW<R1) i SAY LINE HAS BEEN INITIALIZED 

See if this line has an associated start-up command file. 

Is this a virtual line'? 

Br if yes 

IS THERE A START-UP COMMAND FILE? 

BR IF NOT 



1*: 
2*: 



CMP 


R1,#LSTDL 


BHI 


1* 


MOV 


LSUCF(Rl), R2 


BEQ 


61* 


BR 


2* 


MOV 


#SBPSUF, R2 


TSTB 


<R2) 


BEQ 


61* 


CALL 


SETSUF 



iPoint to job context cell with file name 

; IS FILE NAME NULL? 

i BR IF YES 

i Set up start-up command file for execution 

Broadcast status message to monitoring jobs telling them that 
this job logged on. 



005416 
005424 
005430 
005432 
005436 
005440 
005446 
005452 



012767 
012700 
104375 
005761 
001406 
012767 
012700 
104375 



OOOOOOG 
001132' 

OOOOOOG 

OOOOOOG 
001132' 



173510 61*: 



173466 



MOV #JS*ON, GENMON+2 

MOV #GENMON- RO 

EMT 375 

TST LPARNT(Rl) 

BEQ KMNOTl 

MOV #JS*LOG, GENMON+2 

MOV #GENMON, RO 

EMT 375 



Set logged-on status code 

Point to EMT argument block 

Tell monitoring jobs that we are initiated 

Do we have a parent job? 

Br if not 

Set status code saying we have logged on 

Point to EMT argument block 

Broadcast status code that job logged on 



c 

4 

I 

4 
I 
< 
i 
f 
f 
I 
4 
i 
< 
I 
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t 

« 

i 

i 
( 



c 
3 
4 
5 

6 005454 

7 005462 

8 005470 

9 005474 

10 005500 

11 005504 

12 005510 

13 005514 

14 005520 

15 005522 

16 005526 

17 005532 
IS 005536 

19 005544 

20 005552 

21 005556 

22 005564 

23 005566 

24 005574 

25 005600 

26 005604 

27 005612 

28 005614 
29 

30 005620 

31 005624 
32 

33 
34 

35 005626 

36 005634 

37 005636 

38 005642 

39 005650 
40 

41 005654 

42 005660 

43 005662 

44 005670 

45 005674 

46 005700 

47 005704 
48 

49 005712 

50 005720 

51 005724 

52 005730 

53 005734 
54 

55 005736 

56 005744 

57 005750 



016761 
016761 
005067 
005067 
005061 
105067 
105067 
005767 
001404 
005067 
004767 
005061 
042761 

004767 
032761 
001407 
042761 
004767 
004767 
032761 
001402 
000167 

1 1 6702 
001467 



112767 
006302 
016203 



005767 
001414 

012703 
012704 
004767 



016702 
004767 
020227 
000407 



016700 
004767 



SBTTL Entry to KHON 



End of initialization code that is performed during job login. 
Begin processing that is performed each time KMON is entered. 



172732 

1 72726 

0000000 

OOOOOOG 

0000000 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 

y^ *^ *^ y^ y^ '^/^ 

uuuuuOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 



OOOOOOG 
OOOOOOG 



4*: 
OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 7*: 



KMNOTl: MOV 
MOV 
CLR 
CLR 
CLR 
CLRB 
CLRB 
TST 
BEQ 
CLR 
CALL 
CLR 
BIC 

. CLOSE 
CALL 
BIT 
BEG 
BIC 
CALL 
CALL 
BIT 
BEQ 
JMP 
; CHECK FOR 
6*: MOVE 
BEQ 



R50KMN, LPRGKRl); 

;ri 



UTRPAD 
UFPTRP 
LSCCA(Rl) 
SERFLG 
RUNARG 
uCHAN 
4* 

UCHAN 
PROALL 
LTSCMD(Rl) 
#*SETRN, LSW9(R1 
#RUNCHN 
RSTPRV 

#*DUPRN, LSW6(R1 
7« 

#«DUPRN, LSW6(R1 
PRGALL 
LDCLEN 

#«DOOFF, LSW<R1) 
6« 

CMDOFF 
SYSTEM ABORT 
ABRTCD. R2 
NOABRT 



SET "KMON" AS RUNNING PROGRAM NAME 
) 

; CLEAR USER TRAP CONTROL 

; RESET FLOATING POINT TRAP CONTROL 

; RESET . SCCA TRAP CONTROL 

; DO . HERR 

i No argument string from RUN command 

i DID USER DO A . CDFN? 

i BR IF NOT 

; UNDO THE . CDFN 

i PURGE ALL CHANNELS 

iNO PENDING SPECIAL COMMAND 
)iSay SETUP is no longer running 

i CLOSE PROGRAM SAV FILE 

/Reset job privileges 
);WAS DUP THE PROGRAM THAT EXITED? 

i BR IF NOT 
>;SAY DUP IS NO LONGER RUNNING 

i PURGE ALL CHANNELS 

; DO "LD CLEAN" OPERATION 

> SHOULD WE LOG USER OFF? 

; BRANCH IF NOT 

; FORCE LOGOFF 

; WAS USER ABORTED? 
i BRANCH IF NOT 



USER WAS ABORTED — PUT OUT ABORT MESSAGE. 



000010 OOOOOOG 
000176' 

OOOOOOG 



001362' 
OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 
120000 



OOOOOOG 
OOOOOOG 



MOVB 
ASL 
MOV 

. PRINT 
. PRINT 
i Print name of 
TST 

. PRINT 

MOV 

MOV 

CALL 

. PRINT 
; PUT OUT LOCAT 
1*: . PRINT 

MOV 

CALL 

CMP 

BR 
i BLOS 

. PRINT 

MOV 

CALL 



#10, UERSEV 

R2 

ABTMSG(R2),R3 

#MONTXT 

R3 

file that caus 
ERRSPC 
1* 

#FILERM 
#BLKO, R3 
#ERRSPC, R4 
EDTFIL 
#BLKO 

ION OF ABORTED 
#LOCMSG 
ABRTAD, R2 
OCTPRT 
R2, #120000 
10* 
10* 

#OVLYEQ 
ABRTOV, RO 
PRTR50 



SAY ERROR SEVERITY LEVEL = SEVERE 
CVT ERROR CODE TO WORD INDEX 
GET ADDR OF ERROR MESSAGE 



ed the error 

; Do we have a file spec to print? 

; Br if not 

iPrint heading message 

iPoint to buffer where result is to be stored 

jPoint to RAD50 file spec 

; Convert file spec to ascii 

iPrint the file spec 
INSTRUCTION. 



GET ADDR OF ABORT INST 

PRINT THE OCTAL VALUE 

IN OVERLAY REGION? 

*** skip overlay this version *«* 

BR IF NOT 

PRINT " OVERLAY = " 

GET OVERLAY NAME 

AND DISPLAY IT 



I 

i 
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€ 
I 
I 
I 
I 
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58 


005754 






10* 


. PRI 


59 


005762 


005067 


0000000 




CLR 


60 


005766 


105067 


OOOOOOG 




CLRB 


61 


005772 


042737 


004440 


OOOOOOG 


BIC 


62 


006000 


105067 


OOOOOOG 




CLRB 



#CRLF 

ABRTAD i CLEAN ABORT ADDR 

ABRTCD ; AND CODE 

#004440, e#JSWLOC; RELEASE CHAIN AREA, PASLIN, 

CINFLG iKILL ANY CHAIN REQUEST 



AND SCHAIN 






4 
I 
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f 

C 
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3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



006004 
006010 
006016 
006020 
006024 
006032 
006036 
006040 



006044 
006050 



006052 
006060 
006066 
006074 
006102 
006110 
006114 
006120 
006124 
006130 
006136 
006144 
006152 
006160 
006166 
006174 
006176 
006204 
006210 
006212 
006216 



006222 
006230 
006236 
006240 
006244 
006252 
006260 
006262 
006266 



005067 
032761 
001405 
105067 
042737 
105767 
001402 
000167 



012700 
104375 



012761 
016161 
042761 
042761 
042761 
005061 
005061 
005061 
005061 
042761 
042761 
042761 
042761 
042761 
032761 
001403 
052761 
016700 
001404 
004767 
005067 



1 56767 
126767 
103413 
004767 
042761 
032761 
001402 
004767 
105067 



User did not abort. See if this is ^ . CHAIN fequest 



0000000 
OOOOOOC 0000000 

OOOOOOG 

OOOOOOC OOOOOOG 
OOOOOOG 

OOOOOOG 



FILE SPEC 
TO ABORT ALL 



001112' 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 



OOOOOOG 
OOOOOOG 



NOABRT: CLR ERRSPC i CLEAR ANY ERROR 

BIT #*CFKIL!*CFABT, LSW6<R1) ; REQUEST 

BEQ 1* ;BR IF NOT 

CLRB CINFLG i CLEAR ANY CHAIN REQUEST 

BIC #PASLIN!SCHAIN, @#JSWLOC i KILL ANY PASSED COMMAND 

1*: TSTB CINFLG » IS THIS .CHAIN REQUEST? 

BEQ NOCIN i BRANCH IF NOT 

JMP KDOCIN ;G0 DO THE CHAIN 

Not . CHAIN request so enter normal KMON. 

Delete any temporary display luindows for this job 



COM FILES? 



000040 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOC 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOC 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 



OOOOOOG OOOOOOG 4*: 
OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



NOCIN; MOV #DELWIN, RO 
EMT 375 

Clean up various cells 



MOV #BLANK, LRBFIL<R 

MOV LSW2S < R 1 ) , LSW2 < 

BIC #KL4CLR, LSW4<R1 

BIC #«VTESC. LSW5(R1 

BIC #*DEBUG!«RN10P, 

CLR LNSPAC(Rl) 

CLR LRDTIM<R1) 

CLR LAFSIZ(Rl) 

CLR LFWLIM(R1> 

BIC #KL3CLR. LSW3(R1 

BIC #*CFDCC,LSW4(Ri 

BIC #<*NDWTT!*CHACT 

BIC #*N0INT. LSW7(R1 

BIC #*NTGCC.LSW9(R1 

BIT #*SNWTT, LSW6 < R 1 

BEQ 3* 

BIS #*N0WTT, L5W5<R1 

MOV CFSPND, RO 

BEQ 4* 

CALL CFSTRT 

CLR CFSPND 



i Point to EMT argument block 

; Delete all temporary windows for job 



USE SPACE FOR RUBOUT FOR KMON 
RESET STATUS OF LSW2 



3*: 



1> 
Rl) 
) 

);TURN OFF VT52 ESC~LETTER ACTIVATION 
LSW9(Rl);Not debugger, I/O page 
i NO SPECIAL ACTIVATION CHARS 
; CLEAR TT READ TIME-OUT VALUE 
FIELD WIDTH ACTIVATION 
FIELD WIDTH LIMIT 
MISC BITS IN LSW3 
DEFERRED-CTRL-C FLAG 
LSW5(R1);TURN OFF NO WAIT AND SINGLE CHAR ACT 
Reset non-interactive run switch 
Clear non-terminating . GTLIN ctrl-C flag 
DID USER DO "SET TT NOWAIT"? 
; BR IF NOT 
);SET NO-WAIT FLAG 
i WAS A COMMAND FILE SUSPENDED? 
; BR IF NOT 
/Restart it 



CLEAR 
CLEAR 
CLEAR 
CLEAR 



Check if program specified an error severity level. 



1*: 



BISB UERSEV, INDERR 

CMPB UERSEV, ERRSEV 

BLO 1* 

CALL ABRTCF 

BIC #«CCLRN, LSW5 ( R 1 ) 

BIT #*INDAB,LSW7<R1) 

BEQ 1* 

CALL INDABT 

CLRB UERSEV 

Purge all of user's channels 



SAVE ERROR STATUS FOR IND 

DID PROGRAM SPECIFY ERROR SEVERITY? 

BR IF OK 

SEVER ERROR — ABORT COMMAND FILE 

SAY CCL NOT RUNNING 

DOES HE WANT TO ABORT IND COMMAND FILES? 

BR IF NOT 

Abort IND execution 

CLEAR ERROR STATUS 



I 
I 
f 

c 

« 



€ 



4 
i 

i 
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58 006272 

60 006304 

61 006306 

62 006312 

63 006314 

64 006322 

65 006324 

66 006330 
67 

68 
69 

70 006336 

71 006342 

72 006344 

73 006350 

74 006352 

75 006356 

76 006364 



004767 

001403 
004767 
000406 
032761 
001405 
004767 
042761 



001003 
005767 
001406 

012760 
104375 



OOOOOOG 
OOOOOOG 






OOOOOOG 

OOOOOOG OOOOOOG 2*: 



OOOOOOG 
OOOOOOG 



OOOOOOG 

OOOOOOG 

\j\j X J. Jc: 
OOOOOOG 



OOOOOOG 5*: 



CALL PRGALL i PURGE ALL CHANNELS 

BIT #$CFKIL» LSWd (Rl)»SiiOiJid ms abort/ ximD ari w c ofiiinsnd f 1 1 55? 

BEQ 2* ; Br if not 

CALL INDABT ; Abort IND and nested command files 

BR 5« 

BIT #*CFABT.LSW6(R1); SHOULD WE ABORT ALL ACTIVE COMMAND FILES? 

BEQ 6* ; BR IF NOT 

CALL ABRTCF J ABORT ALL ACTIVE COMMAND FILES 

BIC #*CCLRN, LSW5<R1);ST0P EXECUTION OF CCL 



Tell any jobs that are monitoring us that we just entered TSKMON 



OOOOOJ 



6$: TST LMDNHD<R1) 

BNE 7* 

TST SMONHD 

BEQ CKPASL 

7$: MOV #GENMON, RO 

MOV #JS*KMN/2(R0) 

EMT 375 



Are me being rRonitored? 

Br if yes 

Anyone monitoring ail jobs? 

Br if not 

Point to EMT arguinent block 

Set status code 

Broadcast status message 



( 
I 
i 

i 
c 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



006366 
006374 



006376 
006404 
006406 
006414 
006416 
006422 
006426 



006430 
006436 
006440 
006446 
006450 
006454 
006460 
006462 
006464 
006466 
006472 
006500 
006506 
006514 
006520 



006524 
006532 
006534 
006540 
006542 
006546 
006550 



032737 
001546 



032761 
001006 
032737 
001002 
004767 
005767 
001531 



032761 
001432 
126727 
001026 
012703 
012702 
1 1 2322 
001376 
005302 
010267 
042761 
042737 
052737 
105267 
000167 



032761 
001403 
012705 
000403 
004767 
010005 
004767 



See if program passed a set of command lines to Kmon 
tuhen it exited. 



OOOOOOC OOOOOOG CKPASL: BIT 

BEQ 



#PASLIN!SCHAIN, @#JSWLOCi DID PROGRAM PASS US A COMMAND? 
4* i BR IF NOT 



OOOOOOC OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG 
0000 lOG 



Program did pass a set of commands to Kmon. 

Set it up to look like a fake command file. 

That isi the commands are stored in the command file buffer so that 

they are read as if they came from a command file* but no actual 

file is open. 

Determine if ue should abort the currently open command file. 

IW5(R1);IS CCL OR IND RUNNING? 
BR IF YES 

SHOULD BE ABORT CURRENT COMMAND FILE? 
BR IF NOT 

ABORT ALL CURRENTLY OPEN COMMAND FILES 
5*: TST CINDAT+10 i DID HE PASS US A NULL COMMAND FILE? 

IF YES THEN WE ARE FINISHED 

If command line is being passed to us by the TSXUCL program, 
check to see if this is a case where TSXUCL could not recognize 
the command and is passing it back to us for processing. 
If so. just move the command to the command buffer and then proceed 
with normal KMON command checking. 



BIT 


#«CCLRN!*INPRN. L 


BNE 


5* 


BIT 


#SCHAIN> e#JSWLOC 


BNE 


5* 


CALL 


ABRTCF 


TST 


CINDAT+10 


BEQ 


4* 



OOOOOOG OOOOOOG 

0000 12G 000077 

0000 13G 
001136' 



172022 

OOOOOOG OOOOOOG 

OOOOOOC OOOOOOG 

OOOOOOG OOOOOOG 

175603 

001762 



16*: 



BIT 


#*UCLRN, LSW7<R1 


BEQ 


15* 


CMPB 


CINDAT+12, #'? 


BNE 


15* 


MOV 


#CINDAT+13. R3 


MOV 


#CMDBUF. R2 


MOVB 


(R3)+, <R2)+ 


BNE 


16* 


DEC 


R2 


MOV 


R2. CMDEND 


BIC 


#*UCLRN, LSW7<R1 


BIC 


#PASLIN!SCHAIN, 


BIS 


#LCBIT, e#JSWLOC 


INCB 


NOUCL 


JMP 


IDNCMD 



); Is TSXUCL 
i Br if not 
; Is TSXUCL t 
i Br if not 
; Point to ch 
i Point to CO 
i Move comman 
} Loop till a 
; Make R2 poi 
; Save pointe 
)iSay TSXUCL 
@#JSWLOC ;Cle 
; Enab le lotue 
; Set flag sa 
; Go process 



program running? 

hrouing command back to us? 

ain data area (past "?" char) 

mmand buffer 

d to command buffer 

sciz null moved 

nt to null at end of command 

r to end of command 

program no longer running 

ar command-passed flag 

r-case input 

ying not to call TSXUCL again 

the command 



If we have pending commands in the command file buffer, compress 
them to make room for new commands. 

If input is coming from a real command file we do not need to 
compress since we will reread buffer when we hit end of new commands. 



OOOOOOG OOOOOOG 15*: 

OOIOOOG 

OOOOOOG 11*: 

OOOOOOG 12*: 



BIT 

BEQ 

MOV 

BR 

CALL 

MOV 

CALL 



#*CFOPN. LSW4<R1); IS A COMMAND FILE OPEN? 

11* i BR IF NOT 

#CFBUF+512. . R5 i SAY ENTIRE COMMAND FILE BUFFER IS FREE 

12* 



CFSQEZ 
RO. R5 
PUSHCF 



COMPRESS INFO IN CURRENT COMMAND FILE BUFFER 
SAVE ADDRESS OF END OF FREE SPACE IN BUFFER 
OPEN A NEW COMMAND FILE <PUSH CURRENT ONE) 



( 

4 
f 

< 

I 

f 

i 

f 

f 

I 

I 

C 

( 

I 

I 

I 

< 

c 
I 
i 



I 

} i 

I 

I 

I* 

i 

t 

t 

I 

t 

t 

t 

I 

( 

4 
( 



006554 
006560 
006562 
006566 
006570 
006576 
006606 
006612 
006614 

006616 
006624 
006630 
006632 
006634 



006636 
006640 
006642 
006644 
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58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

SO 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 
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006646 
006654 
006656 
006664 
006666 
006674 
006702 
006704 

006712 
006720 
006726 



006734 
006742 
006744 



006754 
006756 
006762 
006764 



012703 
012302 
020227 
003407 
042737 

012704 
112324 
001005 

112764 
112724 
077210 
020405 
101355 



020405 
103002 
105024 
000774 



032761 
001004 
032737 
001403 
052761 
032761 
001403 
052761 

042761 
042737 
042761 



032761 
001402 
000167 



105767 
001417 
005767 
001014 
042761 



Move {.ommand line from chain aresi to cummand file buffer 



0000100 

000270 

OOOOOOC OOOOOOG 10*: 

OOOOOOG 6*: 

2«: 



Put 



000015 
000012 



177777 



1*: 



MOV #CINDAT+10, R3 

MOV (R3)+, R2 

CMP R2i #<1000-510> 

BLE 6$ 

BIC #PASLIN!SCHAIN, e#JSWLOC 
FABORT #TOOLNG 

MOV #CFBUF, R4 

MOVE (R3)+, (R4>+ 

BNE 1* 
cr-If in place of asciz 

MOVE #CR,-1(R4) 

MOVB #LF, <R4)+ 

SOB R2, 2* 

CMP R4, R5 

BHI 10* 



; POINT TO CELL WITH CHAR COUNT 
; GET COUNT OF # CHARS IN COMMAND 
i CHECK LENGTH OF COMMAND STRING 
i BR IF COMMAND IS SMALL ENOUGH 

CLEAR FLAGS BEFORE ABORT 
;LINE TOO LONG ERROR MESSAGE 
; POINT TO START OF COMMAND FILE BUFFER 
iMOVE COMMAND TO BUFFER 
i BR IF NORMAL CHARACTER 
nulls 



MOVE ALL CHARACTERS 

DID WE OVERFLOW BUFFER SPACE? 

BR IF YES — COMMAND TOD LONG 



Null fill remainder of buffer 



14*: 



CMP 
BHIS 
CLRB 
BR 



R4, R5 
13* 
(R4) + 
14* 



HAVE WE REACHED THE END OF THE BUFFER? 

BR IF YES 

NULL FILL REST OF BUFFER 



If special chain exit is being used.- or if command is coming 
from CCL or IND> then don't list the commands. 



OOOOOOC OOOOOOG 13*: 
OOOOOOG OOOOOOG 



OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 



OOOOOOG OOOOOOG 



OOOOOOC 
OOOOOOC 
OOOOOOC 



OOOOOOG 
OOOOOOG 
OOOOOOG 



8*: 
9*: 



4*: 



BIT 
BNE 
BIT 
BEQ 
BIS 
BIT 
BEQ 
BIS 
Clear flags 
BIC 
BIC 
BIC 



#«CCLRN!*INDRN, LSW5<R1) i IS CCL OR IND RUNNING? 
8* i BR IF YES 

#SCHAIN, e#JSWLOCi IS THIS A SPECIAL CHAIN EXIT? 
9* i BR IF NOT 

#*QUIET, LSW4(R1)jSET FLAG TO SUPPRESS LISTING COMMAND LINES 
#*CCLRN, LSW5(Rl)i IS THIS AN EXPANDED CCL COMMAND? 
4* i BR IF NOT 

#*CFCCL>LSW4<R1); REMEMBER THAT THIS IS A CCL COMMAND 
which say CCL or IND is running. 
#*CCLRN!*INDRN, LSW5(Rl)iCCL AND IND ARE NO LONGER RUNNING 
#PASLIN!SCHAIN, e#JSWLOC ; CLEAR COMMAND-PASSED FLAGS 
#*UCLRN!*UKMRN, LSW7(R1)jSAY TSXUCL IS NO LONGER RUNNING 



See if uje are exiting from a locked program 



OOOOOOG OOOOOOG CKLK: 
OOOOOOG 



BIT #*PRGLK, LSW5(R1); IS A LOCKED PROGRAM EXITING? 

BEQ CKSF2 i BR IF NOT 

JMP CMDOFF ;EXIT FROM LOCKED PROGRAM==>LOGOFF 



See if uie need to start execution of a secondary start-up command file 
(The secondary start-up command file runs without privilege after the 
initial start-up command file finishes). 



OOOOOOG 



OOOOOOG 



OOOOOOG OOOOOOG 



CKSF2: 


TSTB 


SUCF2 




BEQ 


NEWCMD 




TST 


CFPNT 




BNE 


NEWCMD 




BIC 


#*SUCF, LSW9<R1> 



fSconuary 



; Is there a pending 

J Br if not 

i Are we currently in another command file? 

; Br if yes — Wait for it to finish 

j Say we are finished with 1st startup file 



f 
I 
I 
f 

i 

4 
I 

i 
i 
i 

f 
I 
I 
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115 


006772 


042761 


OOOOOOG 


OOOOOOG 


BIG 


#«N0IN*LSW3<Ri) 


116 


007000 


012702 


OOOOOOG 




MOV 


#SUCF2, R2 


117 


007004 


004767 


004732 




CALL 


SETSUF 


118 


007010 


105067 


OOOOOOG 




CLRB 


SUCF2 



iAllouJ input to be accepted for line 

; Point to name of secondary command file 

i Set up command file 

; Say secondary file no longer pending 



c 



I 

( 

c 
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f 



c 

( 
( 
I 
I 



i 

I I 

I 

I 

t 
i 
i 



007014 
007022 
007026 
007032 
007034 



3 

4 

5 

6 

7 

8 

9 

10 

11 

12 



14 007046 

15 007052 

16 007056 

17 007060 

18 007064 

19 007070 
20 

21 

22 

23 

24 007074 
007102 
007104 
007110 

28 007112 

29 

30 

31 

32 007116 
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. SBTTL Get keyboard command 
Print CR-LF to get to left margin if we are not already there. 



052737 OOOOOOG 

116701 OOOOOOG 

105761 OOOOOOG 
001403 



OOOOOOG NEWCMD: BIS 

MOVB 
TSTB 
BEQ 



#LCBIT, @#JSWLOC 
CORUSR.Rl 
LCOL(Rl) 
RDCMD 



ENABLE LOWER-CASE INPUT 

GET JOB INDEX NUMBER 

ARE WE ALREADY AT LEFT MARGIN? 

BR IF YES — NO CR-LF NEEDED 

PRINT CR-LF 



.PRINT #CRLF 
See if IND is in control and we need to call it to get the next command 



i. JL O / W X 

012702 
132712 
001406 
142712 
152712 
000167 



OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOC 
OOOOOOG 
002476 



RDCMB; 



MOVB 

MOV 

BITS 

BEQ 

BICB 

BISB 

JMP 



uur<u»R» n X 
#INDSTA, R2 
#IN«ACT, eR2 
2* 



; GET JOB INDEX NUMBER 

i GET POINTER TO IND STATUS BYTE 

; IS IND ACTIVE? 

i BR IF NOT 



#IN*ACT! IN*CMD, @R2 ; CLEAR STATUS FLAGS FOR IND 

#IN$CNT, @R2 i SAY WE ARE CONTINUING EXECUTION OF IND 

INDRUN i GO RUN IND PROGRAM 



25 
26 
27 



032761 OOOOOOG OOOOOOG 2$; 

001405 

005767 OOOOOOG 

001002 

000167 002162 



If user-written command interface program is active* call it to 
get the next command. 

BIT #*UKMON. LSW7<Ri )i Are we to use user-written command program^' 

BEQ 3* 'Br if not 

TST CFPNT i Are we getting commands from a command file? 

BNE 3* J Br if yes — Don't call user program till end 

JMP CALUKM ; Enter user command processor program 



Read next command line 
3«: . GTLIN ttlNBUF, #KMPRMT i PROMPT FOR AND ACCEPT COMMAND LINE 



4 

i 

i 

€ 
I 

i 
i 
i 

f 

4 

i 
i 



I 

I 
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I 

• t 

1^ 



3 








4 








5 








6 


007136 


012702 


001136' 


7 


007142 


005067 


171266 


8 


007146 


105067 


171264 


9 


007152 


105067 


175142 


10 


007156 


105067 


175137 


11 


007162 


105067 


175134 


12 


007166 


105067 


175131 


13 


007172 


012704 


001362' 


14 


007176 


112400 




15 


007200 


00 1 546 




16 


007202 


120027 


000040 


17 


007206 


001773 




IS 


007210 


120027 


000011 


19 


007214 


001770 




20 


007216 


120027 


000014 


21 


007222 


001765 




22 


007224 


000402 




23 








24 








25 








26 


007226 


112400 




27 
28 
29 


007230 


001530 










30 








31 


007232 


120067 


171200 


32 


007236 


001003 




33 


007240 


105067 


171172 


34 


007244 


000511 




35 


007246 


105767 


171164 


36 


007252 


001106 




37 


007254 


120027 


000047 


38 


007260 


001403 




39 


007262 


120027 


000042 


40 


007266 


001003 




41 


007270 


110067 


171142 


42 


007274 


000475 




43 








44 








45 








46 


007276 


120027 


000041 


47 


007302 


001503 




48 








49 








50 








51 


007304 


105767 


175012 


52 


007310 


001067 




53 


007312 


120027 


000072 


54 


007316 


001010 




55 


007320 


1 1 0022 




56 


007322 


112400 




57 


007324 


001472 
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inpuT; line is now in INBUF in asciz rorm. 

Move line to CMDBUF while looking for start of comments or 

indirect file reference. 



MOVE FINISHED COMMAND HERE 

SAY NO INDIRECT FILE YET 

Say uje are not in quoted string 

SAY HAVE NOT SEEN "*@" 

SAY HAVE NOT SEEN "#@" 

SAY HAVE NOT SEEN ":=" 

BAY WE MAY CALL UCL FOR THIS COMMAND 

SCAN FROM HERE 

GET NEXT CHAR FROM INPUT LINE 

BR IF END OF LINE HIT 

SKIP OVER LEADING SPACES 



* SKIP LEADING TABS 
iSKIP LEADING FORM FEEDS 
; BEGIN SCANNING REAL COMMAND 
Get next character from input line 



PRSCMD: 


MOV 


#CMDBUF, R2 




CLR 


INDRFL 




CLRB 


QUOTFL 




CLRB 


DOLRAT 




CLRB 


DOTAT 




CLRB 


COLEQL 




CLRB 


NOUCL 


SCNCMD: 


MOV 


#INBUF, R4 


8*: 


MOVB 


<R4)+,R0 




BEQ 


4* 




CMPB 


RO, #' 




BEQ 


Q* 




CMPB 


RO, #TAB 




BEQ 


8* 




CMPB 


RO, #FF 




BEQ 


8« 




BR 


9* 



6*: 



MOVB 
BEQ 



(R4)+, RO 
11* 



;GET NEXT CHAR FROM INPUT LINE 
iBR IF END OF LINE HIT 



See if tue are in a quoted string 



9*: 



17*: 



19*: 



CMPB 


RO, QUOTFL 


BNE 


17* 


CLRB 


QUOTFL 


BR 


5* 


TSTB 


QUOTFL 


BNE 


5* 


CMPB 


RO, #47 


BEQ 


19* 


CMPB 


RO, #42 


BNE 


IS* 


MOVB 


RO, QUOTFL 


BR 


5* 



Check for start of comments 



IS*: 



CMPB 


RO, # ' ! 


BEQ 


11* 


Check for : 


= 


TSTB 


COLEQL 


BNE 


5* 


CMPB 


RO, # ' : 


BNE 


12* 


MOVB 


RO, (R2) + 


MOVB 


<R4)+, RO 


BEQ 


11* 



Is this the terminating quote mark? 

Br if not 

Say not within quoted field now 

Go store terminating quote character 

Are we inside a quoted string now? 

Br if yes — Go store char without checking 

Apostrophe character? 

Br if yes 

Quote character? 

Br if not 

Remember we are inside a quoted string 

Go store character without further checking 



; START OF COMMENT FIELDS 
i BR IF YES 



Have we already seen : =? 

Br if yes — Ignore ©'s after := 

Start of := sequenced' 

Br if not 

Store into result string 

Get character following colon 

Br if end of line hit 



I 






4 
i 

i 

I 
I 
I 
C 
i 
i 
I 
t 
I 

i 
I 
i 
4 



i 

« 

i 

c 

I ( 

I 
I* 

I 

c 

I 

► 

\ 
I 

I 

I' 
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58 


007326 


120027 


000075 


59 


007332 


001002 




60 


007334 


105267 


174762 


61 








62 








63 








64 


007340 


120027 


000044 


65 


007344 


001014 




66 


007346 


005767 


171062 


67 


007352 


001046 




68 


007354 


121427 


000100 


69 


007360 


001043 




70 


007362 


010267 


171046 


71 


007366 


105267 


174726 


72 


007372 


005204 




73 


007374 


000714 




74 








75 








76 








77 


007376 


120027 


000043 


78 


007402 


001014 




79 


007404 


005767 


171024 


80 


007410 


00 1 027 




81 


007412 


121427 


000100 


82 


007416 


001024 




83 


007420 


010267 


171010 


84 


007424 


105267 


174671 


85 


007430 


005204 




86 


007432 


000675 




87 








88 








89 








90 


007434 


120027 


000100 


91 


007440 


001013 




92 


007442 


121427 


000100 


93 


007446 


001002 




94 


007450 


005204 




95 


007452 


000406 




96 


007454 


005767 


170754 


97 


007460 


001003 




98 


007462 


010267 


170746 


99 


007466 


000657 




100 








101 








102 








103 


007470 


020227 


001342' 


104 


007474 


103404 




105 


007476 






106 


007506 


110022 




107 


007510 


000646 




108 








109 








110 








111 


007512 


010267 


170776 


112 


007516 


020227 


001136' 


113 


007522 


001002 




114 


007524 


000167 


177312 
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i Is this : = 
i Br if not 
; Remember : 



CMPB 




RO, #' = 


BNE 




12* 


INCB 




COLEQL 


i Check for 


*@ 




12*: CMPB 




R0,#'* 


BNE 




10* 


TST 




INDRFL 


BNE 




5* 


CMPB 




(R4),#'S 


BNE 




5* 


MOV 




R2, INDRFL 


INCB 




DOLRAT 


INC 




R4 


BR 




6* 


; Check for 


#@ 




10*: CMPB 




RO, #'# 


BNE 




3* 


rsT 




INDRFL 


BNE 




5* 


CMPB 




(R4), #'<3 


BNE 




5* 


MOV 




R2, INDRFL 


INCB 




DOTAT 


INC 




R4 


BR 




6* 



Check for @ and 



3*: 



20*: 



CMPB 


ROi#'@ 


BNE 


5* 


CMPB 


<R4),#'S 


BNE 


20* 


INC 


R4 


BR 


5* 


TST 


INDRFL 


BNE 


5* 


MOV 


R2> INDRFL 


BR 


6* 



5*: 



1*: 



Move character to buffer 

CMP R2, #CBFEND 

BLO 1* 

FABORT #ILLCMD 

MOVB RO, <R2)+ 

BR 6* 



seen uithin command string 



COULD THIS BE START OF "*e"? 

BR IF NOT 

HAVE WE ALREADY SEEN ©? 

BR IF YES 

IS THIS ■■*©"? 

BR IF NOT 

REMEMBER INDIRECT FILE NAME LOCATION 

REMEMBER PREFIX WAS "*@" 

SKIP PAST "«" 

START GETTING FILE NAME 



COULD THIS BE START OF "#@"? 

BR IF NOT 

HAVE WE ALREADY SEEN «*? 

BR IF YES 

IS THIS "#e"? 

BR IF NOT 

REMEMBER INDIRECT FILE NAME LOCATION 

REMEMBER PREFIX WAS "#@" 

POINT PAST ". " 

START GETTING FILE NAME 



START OF INDIRECT FILE REFERENCE? 

BR IF NOT 

Is this "e€"? 

Br if not 

Skip past second at-sign 

Translate "©S" to "e" and pass with command 

ALREADY SEEN © BEFORE? 

IF YES THEN IGNORE THIS ONE FOR NOW 

SAVE POINTER TO START OF FILE NAME 

DON'T BOTHER STORING @ IN CMDBUF 



MAKE SURE WE DON'T OVERFLOW BUFFER 
BR IF OK 

COMMAND TOO LONG 
MOVE CHAR TO CMDBUF 
GO GET REST OF LINE 



Reached end of line 



strip off any trailing spaces and tabs 



11*: 


MOV 


4*: 


CMP 




BNE 




JMP 



R2, CMDEND 
R2i #CMDBUF 
16* 
RDCMD 



SAVE POINTER PAST END OF COMMAND STRING 

HAVE WE GONE PAST START OF BUFFER? 

BR IF NOT 

YES — THIS IS A NULL COMMAND 



I 
I 



I 



t 
I 
I 
( 
I 

c 

I 

€ 

c 

I 
i 
I 
f 

4 

I 



I 
I 



I 
I 
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115 


007530 


124227 


000040 


116 


007534 


001770 




117 


007536 


121227 


000011 


118 


007542 


001765 




119 


007544 


005202 




120 








121 








122 








123 


007546 


126227 


177777 


124 


007554 


001013 




125 








126 


007556 


005302 




127 


007560 






128 


007600 


000167 


177366 



16*: 



CMPB 


-(R2)>#' 


BEQ 


4* 


CMPB 


<R2),#TAB 


BEG 


4* 


INC 


R2 



IS NEXT CHARACTER A SPACE? 

LOOP BACKWARD OVER SPACES 

IS THIS A TAB? 

LOOP IF YES 

POINT BEYOND LAST NON-BLANK CHARACTER 



See if command line is continued 



CMPB -1<R2),#'- 
BNE GOTCML 
Line is continued — get more 
DEC R2 

. OTLIN #INBUF, #KMPRMT 
JMP SCNCMD 



IS 
BR 



LINE CONTINUED? 
IF NOT 



POINT BACK TO - 

READ COMMAND CONTINUATION LINE 

CONTINUE SCANNING LINE 



f 
I 
f 
I 
t 



i 

c 



I. 



i 
i 
I 



> < 



I 

I' 

i 
i 

i 

i 

I 

I 

I 

I 
I 

I 

C 



t 
i 

i 
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1 
2 
3 
4 
5 

6 007604 

7 007606 

8 007614 

9 007616 

10 007622 

11 007624 

12 007630 
3 uu/o3c: 

14 007642 
15 

16 
17 

15 007646 
19 007652 
20 

21 
22 
23 

24 007654 

25 007662 

26 007664 

27 007672 

28 007674 

29 007700 

30 007702 

31 007706 

32 007714 

33 007720 



See if this command contains := which indicates this is a user 
request to define a new command keyword. 



105012 
026727 
001443 
105767 
001411 
005767 
001004 



170622 001136 

174500 

ooooooe 



000167 001306 



GOTCML: CLRB 
CMP 
BEQ 

TSTB 
BEQ 
TST 
BNE 
FAB OR 7 
1*: JMP 



<R2) 

INDRFL, #CMDBUF 

INDCMD 

COLEQL 

13$ 

UCLBLK 

1* 

#EM*NUC 

CALUCL 



store null at end of command 

Was "S" first character of command? 

Br if yes — Don't call UCL for this 

Was := seen within command line? 

Br if not 

Are we supporting user-defined commands? 

Br if ues 



Go call UCL to process it 
See if command line contains an indirect command file reference 



016703 
001024 



170562 



13*. 



MOV 
BNE 



INDRFL,R3 
INDCMD 



;Did we have indirect file reference? 
J Br if yes 



126727 
001411 
032761 
001412 
005767 
001407 
000167 
112767 
105267 
000167 



171256 000137 

OOOOOOG OOOOOOG 

OOOOOOG 

001246 

000040 171222 

174403 

000562 



If we are to call TSXUCL before normal processing* determine if we 
should do it for this command. 

Was "__" specified as first char of command? 

Br if yes — Don't call TSXUCL for __command 

Should we call TSXUCL before normal commands?' 

Br if not 

Are we allowing user-defined commands? 

Br if not 

Call TSXUCL to try to process this command 
15*; MOVB #' , CMDBUF j Replace leading underscore with space 

Remember not to call TSXUCL for this command 
16*: JMP IDNCMD i Go try to identify the command 



CMPB 


CMDBUF, # ' 


BEQ 


15* 


BIT 


#*UCLCF, LSW7<R1) 


BEQ 


16$ 


TST 


UCLBLK 


BEQ 


16* 


JMP 


CALUCL 


MOVB 


# ' , CMDBUF 


INCB 


NOUCL 


JMP 


IDNCMD 



I 
I 

f 

I 



I 

€ 
I 

I 
I 
C 
4 
« 
C 
4 
I 



4 
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> 



I, 

I 

I < 

I 
« 

I 
( 

f 

I 

( 

I 

t 
f 
< 

c 

r 
i 



007724 
007730 



26 
27 



3 
4 
5 
6 
7 
8 
9 
10 

11 007734 

12 007736 

13 007742 

14 007746 

15 007750 
16 

17 

le 

19 007754 

20 007762 

21 007764 

22 007770 

23 007772 

24 007776 

25 010000 
010010 
010016 

28 010020 

29 010024 

30 010026 

31 010034 

32 010036 

33 010040 

34 010042 
35 

36 
37 

38 010046 

39 010052 

40 010056 

41 010060 

42 010064 

43 010072 

44 010112 

45 010120 

46 010122 

47 010126 

48 010134 

49 010136 

50 010152 

51 010156 

52 010162 
53 

54 
55 

56 010172 

57 010176 



116701 
016703 



010304 
012705 
004767 
103002 
000167 



026727 
001031 
105767 
001407 
005767 
001013 

032761 
001413 
105767 
001010 
132767 
001004 
010403 
005005 
000167 



016700 
004767 
103441 
004767 
112767 

112767 
103024 
116701 
032761 
001410 

000167 
004767 



i-ommand line contains indirect fiie reference. 
Accrue indirect file name and try to open the file, 



OOOOOOG 
170500 



INDCMD: MOVE 
MOV 



C0RUSR,R1 i GET JOB INDEX # 

INDRFL, R3 i GET POINTER TO COMMAND FILE NAME 



000244 ' 

y-l y% *-\ y^ >-\ /t y^ 

177066 

170454 001136' 

174331 

OOOOOOG 

OOOOOOG OOOOOOG 

174274 

OOOOOOG OOOOOOG 

001372 



170366 
OOOOOOG 

OOOOOOG 

000001 OOOOOOG 

000000 OOOOOOG 

OOOOOOG 
OOOOOOG OOOOOOG 



MOV 


R3, R4 


MOV 


#DKCOM, R5 


CALL 


ACRFN 


BCC 


4* 


JMP 


RDCMD 



4*: 



OOOOOOG 
OOOOOOG 



Accrue the command file spec 

Save pointer to start of command file name 

SET DEFAULT DEV AND EXT 

ACCRUE THE FILE NAME 

BR IF GOT NAME OK 

ERROR WHILE GETTING FILE NAME 

See if ute should let IND process the indirect command file 

Was "@" first character of command? 

Br if not 

WAS PREFIX "#@"? 

BR IF NOT 

IS IND AVAILABLE ON SYSTEM? 

BR IF YES 

IND IS NOT AVAILABLE 
2*: BIT #«INDDF, LSW5<R1); IS IND TO BE CALLED BY DEFAULT? 

BR IF NOT 

WAS COMMAND PREFIX "*€?"? 

BR IF YES — DON'T USE IND 
3$: BITB #IN*ACT, INDSTA i IS IND ACTIVE NOW? 

BR IF YES 

Get back pointer to start of file spec 

NO DEFAULT DEVICE 

GO ENTER IND 

Process this indirect command file directly rather than calling IND 

1$: MOV FILNAM, RO J Get the device name 

i Is the device TT? 
; Br if yes — Error 
i PUSH CURRENT ©FILE ON STACK 
i DO . SERR 
►FILNAM 

DO . HERR, DON'T CLEAR CARRY FLAG 

BR IF OPEN OK 

GET JOB INDEX NUMBER 

ARE WE WITHIN A START-UP COMMAND FILE? 

BR IF NOT 

PRINT ERROR MESSAGE 

LOG THE JOB OFF 
5*: CALL POPCF ; POP PUSHED COMMAND FILE STATUS 

COULDN'T OPEN ©FILE 



CMP 


INDRFL, #CMDBUF 


BNE 


1* 


TSTB 


DOTAT 


BEG 


2* 


TST 


INDSAV 


BNE 


3* 


FAB OR T 


#NDIND 


BIT 


#«INDDF, LSW5<R1) 


BEQ 


1« 


TSTB 


DOLRAT 


BNE 


1* 


BITB 


#IN*ACT, INDSTA 


BNE 


1* 


MOV 


R4, R3 


CLR 


R5 


JMP 


INDINI 



MOV 


FILNAM, RO 


CALL 


CHKTTD 


BCS 


NOICMD 


CALL 


PUSHCF 


MOVB 


#1, SERFLG 


. LOOKUP 


#XAREA, #CFCHAN, 


MOVB 


#0, SERFLG 


BCC 


CFOPEN 


MOVB 


CORUSR. Rl 


BIT 


#*SUCF, LSW9<R1) 


BEQ 


5* 


FERR 


#NOCF 


JMP 


CMDOFF 


CALL 


POPCF 



NOICMD: FAB OR T #NOCF 

We have successfully opened the indirect command file. 



4 

i 
i 
I 
I 
I 
I 
1 
i 
I 

i 

I 



116701 
052761 



OOOOOOG 
OOOOOOG OOOOOOG 



CFOPEN: MOVB 
BIS 



C0RUSR>R1 

#*CFDPN, LSW4(Rl)i SAY CFCHAN IS OPEN 



i 
I 

I 

c 
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I 

I 

( 
I 

i 

i 
i 

I 

I 

I 

c 



58 








59 








60 








61 


010204 


004767 


001726 


62 








63 








64 








65 


010210 






66 


010246 


103003 




67 








6B 








69 








70 


010250 


012767 


OOOOOOG 


71 








72 








73 








74 








75 








76 


010256 


105713 




77 


010260 


001437 




78 


010262 


122327 


000040 


79 


010266 


001773 




80 








81 


010270 


012701 


000040 


82 


010274 


124327 


000134 


83 


010300 


001001 




84 


010302 


112301 




85 








86 


010304 


012704 


OOOOOOG 


87 


010310 


012705 


OOOOOOG 


88 


010314 


020427 


OOOOOOG 


89 


010320 


103062 




90 


010322 


010524 




91 


010324 


121301 




92 


010326 


001407 




93 


010330 


105713 




94 


010332 


001405 




95 


010334 


020527 


OOOOOOG 


96 


010340 


103056 




97 


010342 


112325 




98 


010344 


000767 




99 








100 


010346 


105025 




101 


010350 


105723 




102 


010352 


001360 




103 


010354 


010567 


OOOOOOG 


104 








105 








106 








107 








108 








109 








110 








111 








112 


010360 


016702 


170050 


113 


010364 


001436 




114 


010366 


020227 


001136' 



Stis if command file was inis tilled with any fn-ivilkigeia. 

CALL INSCF iSee if command file uias installed 

READ IN 1ST BLOCK FROM INDIRECT FILE 

. READW #XAREA, #CFCHAN, #CFBUF, #256. , #0 

BCC CFPRM i BR IF READ OK 

ERROR OCCURED ON COMMAND FILE READ. 

THIS MUST MEAN THAT WE HAVE AN EMPTY COMMAND FILE. 
SET BUFFER POINTER TO CAUSE US TO IGNORE THIS BUFFER FULL. 

MOV #CF£ND, CFPNT ; SAY BUFFER IS EMPTY 

SEE IF INDIRECT FILE HAS PARAMETERS. 

R3 NOW POINTS PAST END OF COMMAND FILE NAME. 
SCAN ACROSS COMMAND LOOKING FOR 1ST PARAMETER 



CFPRM: TSTB 

CMPB 
BEG 

; SEE IF WE 
MOV 
CMPB 
BNE 
MOVE 

i THERE ARE 

8$: MOV 
MOV 

7*: CMP 
BHIS 
MOV 

6*: CMPB 
BEQ 
TSTB 
BEQ 
CMP 
BHIS 
MOVB 
BR 

i HIT END OF 

4$: CLRB 
TSTB 
BNE 
MOV 



(R3) 

RDREST 

<R3>+, #' 

CFPRM 
SHOULD USE SPACE OR 

#' . Rl 

-(R3), #'\ 

8* 

(R3)+.R1 
SOME PARAMETERS — 

#PRMPNT, R4 

#PRMBUF, R5 

R4, #LSTPRM 

TOMPRM 

R5, (R4) + 

<R3), Rl 

4* 

(R3) 

4* 

R5, #PRMEND 

PTL 

(R3)+> <R5) + 

6* 
PARAMETER — STORE 

(R5) + 

<R3) + 

7* 

R5, PBFEND 



HIT END OF COMMAND? 

BR IF END HIT 

SKIP OVER LEADING SPACES 

\ AS PARAMETER DELIMITER 
i ASSUME SPACE IS DELIMITER 
; DOES HE WANT TO USE \? 
i BR IF NOT — USE SPACE 
i USE \ AS PARAM SEPARATOR 
ACCRUE THEM 

POINT TO PARAM POINTER CELLS 

POINT TO PARAMETER STRING BUFFER 

TOO MANY PARAMETERS? 

BR IF TOO MANY 

SET PARAMETER STRING POINTER 

REACHED PARAM DELIMITER YET? 

BR IF YES 

HIT END OF COMMAND? 

BR IF YES 

HIT END OF PARAM STRING BUFFER? 

BR IF PARAM STRING TOO LONG 

MOVE PARAMETER TO BUFFER 

NULL IN STRING TO MARK END. 

FLAG END OF THIS PARAMETER STRING 

MORE TO ACCRUE? 

BR IF YES 

SAVE POINTER TO END OF PARAM STRING 



THE COMMAND FILE HAS BEEN OPENED AND ITS PARAMETERS HAVE 

BEEN ACCRUED AND STORED AWAY, 

IF THIS COMMAND FILE IS PART OF ANOTHER COMMAND (PART OF SAME LINE) 

THEN GO AND READ THE REST OF THE COMMAND. 

ELSE GO READ NEXT COMMAND LINE WHICH WILL COME FROM THE INDIRECT 

COMMAND FILE WE JUST OPENED. 



i 
I 

c 



RDREST: MOV INDRFL, R2 
BEQ CFJMP 
CMP R2, ttCMDBUF 



GET POINTER TO START OF ©SPECIFICATION 
BR IF IMPLICIT SFILE EXECUTION 
IS ©FILE 1ST THING IN COMMAND? 



i 

I 

I 

( 

t 

t 

I 

< 

( 

( 

( 

t 

t 

4 

I 



I 
I 



I 

I 

I 

( 

\ 

' I 

€ 
I 

i 
i 
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115 


010372 


001433 




116 








117 








lis 








119 








120 


010374 


116701 


OOOOOOG 


121 


010400 


016146 


OOOOOOG 


122 


010404 


012705 


OOOOOOG 


123 


010410 


050561 


OOOOOOG 


124 


010414 






125 


010432 


030526 




126 


010434 


001002 




127 


010436 


040561 


OOOOOOG 


128 


010442 


005067 


167766 


129 


010446 


105067 


173646 


130 


010452 


105067 


173643 


131 


010456 


000167 


176510 


132 


010462 


000167 


176354 


133 








134 


010466 






135 








136 


010476 







BEQ 



CFJMP 



i BR IF YES 



THIS INDIRECT FILE REFERENCE IS PART OF ANOTHER COMMAND SO 
SUPPRESS THE LISTING OF THE 1ST LINE OF ©FILE AS WE READ IT. 

GET USER INDEX # 

SAVE COMMAND FILE STATUS FLAGS 

GET QUIET FLAG INTO REGISTER 

TURN QUIET ON 

READ LINE FROM ©FILE 

NEED TO SET OR RESET QUIET MODE? 

BR IF WANT TO LEAVE IT SET 

RESET QUIET MODE 

SAY SFILE REFERENCE HAS BEEN RESOLVED 

SAY HAVEN'T SEEN "*€" 

SAY HAVEN'T SEEN "#€" 

GO GET REST OF COMMAND 

GO READ NEXT COMMAND 



i ERROR — PARAMETER STRING TOO LONG 
PTL; FABORT #STRLEN 





MOVE 


C0RUSR,R1 i 




MOV 


LSW4 ( R 1 ) , - ( BP ) i 




MOV 


#*QUIET, R5 ; 




BIS 


R5, LSW4(R1) ; 




. GTLIN 


#INBUF i 




BIT 


R5, (SP)+ ; 




BNE 


10* i 




BIC 


R5, LSW4<Ri> i 


10*: 


CLR 


INDRFL i 




CLRB 


DOLRAT ; 




CLRB 


DOTAT i 




JMP 


SCNCMD > 


CFJMP : 


JMP 


RDCMD i 


i ERROR — TOO 


MANY PARAMETERS 


TOMPRM: 


FABORT 


#NUMPRM 



I 

i 
t 

f 
I 

I 
€ 
f 

« 
i 
f 
< 

f 
i 

i 
< 
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SBTTL Identify command 



d. 








3 








4 








5 








6 








7 








B 








9 








10 


010506 


012704 


000000 ' 


11 


010512 


012703 


001136' 


12 


010516 


004767 


OOOOOOG 


13 


010522 


103006 




14 








15 


010524 


005704 




16 


010526 


001407 




17 


010530 






18 








19 








20 








21 








22 








23 








24 








25 








26 








27 


010540 


116701 


OOOOOOG 


28 


010544 


000134 





AT THIS POINT A COMMAND LINE HAS BEEN ACCEPTED, CONTINUATION 
LINES READ, COMMENTS STRIPPED AND INDIRECT FILE REFERENCES 
RESOLVED. THE RESULTING COMMAND IS STORED IN CMDBUF IN 
ASCIZ FORM WITH R2 POINTING TO THE END OF THE COMMAND. 



TRY TO IDENTIFY IT AS A SYSTEM COMMAND. 



IDNCMD; MOV #CMDHD, R4 
MOV #CMDBUF, R3 
CALL SEARCH 
BCC FNDCMD 

i ERROR DURING SEARCH. 



TST 
BEQ 
FABORT 



R4 

NOCMD 

#ABCMD 



i POINT TO TABLE OF SYSTEM COMMANDS 
j POINT TO OUR COMMAND 
i LOOK UP THE COMMAND KEYWORD 
i BR IF IDENTIFIED THE COMMAND 
SEE IF UNRECOGNIZED OR AMBIGUOUS. 

; AMBIGUOUS OR UNRECOGNIZED? 
i BR IF UNRECOGNIZED 
i AMBIGUOUS COMMAND 



WE HAVE A VALID SYSTEM COMMAND. 

BRANCH OFF TO COMMAND PROCESSING ROUTINE. 

AT THIS POINT THE FOLLOWING REGISTERS ARE SET UP: 
Rl = USER INDEX NUMBER 

R2 = ADDRESS OF END OF COMMAND STRING 
R3 = ADDRESS OF START OF COMMAND ARGUMENT FIELD. 



FNDCMD; 



MOVB 
JMP 



GORUSR, Rl 
@<R4)+ 



J GET USER INDEX # 

; ENTER COMMAND PROCESSING ROUTINE 



I 
f 

€ 

€ 

i 

i 

f 

€ 

I 

I 

f 

I 

4 

{ 
4 

i 
t 
I 
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CfO 

27 



3 

4 

5 

6 

7 

S 

9 
10 
11 
12 

13 01 

14 01 

15 01 

16 01 

17 01 
IS 01 

19 01 

20 01 
21 

22 
23 

24 01 

25 01 
01 
01 

28 01 

29 01 

30 01 

31 01 

32 01 

33 01 

34 01 

35 01 

36 01 

37 01 
38 
39 
40 

41 01 

42 01 

43 01 

44 01 

45 01 
46 
47 
48 
49 

50 01 

51 01 

52 01 

53 01 

54 01 

55 01 

56 01 

57 01 



0546 
0552 
0560 
0562 
0566 
0570 
0574 
0576 



0602 
0606 
0612 
0616 
0620 
0624 
0630 
0632 
0636 
0644 
0664 
0672 
0674 
0676 



0700 
0706 
0714 
0734 
0742 



0744 
0750 
0756 
0760 
0766 
0770 
0776 
1002 



116701 
032761 
001410 
105767 
001005 
005767 
001402 
000167 



012703 
012705 
004767 
103513 
016700 
004767 
103506 
004767 
112767 

1 1 2767 
103402 
005005 
000424 



016767 
1 1 2767 

112767 
103430 



012705 
132767 
001015 
032761 
001411 

004767 
012703 



vis could not identify the tommand as a st^iidar-d i^ustem tomntand 

50 we try to identify it as an implicit command in the following u»ay: 

1. See if it is a user-defined command <if SET UCL MIDDLE). 

2. See if there is a command file on "DK: " with command name. 

3. See if there is a command file on "SY: " with command name. 

4. See if there is a SAV file on "SY: " with command name. 

5. See if there is a SY: UCL program to process the command <if UCL LAST). 



0000000 0000000 
173535 
0000000 
000352 



001136' 
000244 ' 
OOOOOOG 

167614 
OOOOOOG 

OOOOOOG 

000001 OOOOOOG 

000000 OOOOOOG 



MOVE 


C0RU3R,R1 


BIT 


#*UCLCM, LSW7(R1) 


BEQ 


7* 


TSTB 


NOUCL 


BNE 


7* 


TST 


UCLBLK 


BEQ 


7* 


JMP 


CALUCL 



7*: 



167360 
000001 



167532 3*: 
OOOOOOG 



000000 OOOOOOG 



004324 ' 

OOOOOOG OOOOOOG 4*: 

OOOOOOG OOOOOOG 



OOOOOOG 
001136' 



See if we should call TSXUCL to process this command. 

NOCMD; MOVE C0RU3R,R1 > GET CURRENT JOB INDEX NUMBER 

SET UCL MIDDLE? 
BR IF NOT 

DID UCL ALREADY REJECT THIS COMMAND? 
BR IF YES 

ARE WE ALLOWING USER-DEFINED COMMANDS? 
BR IF NOT 
SEND COMMAND TO TSXUCL 

See if there is a command file on DK device with command name. 

POINT TO KEYWORD NAME 
GET DEV AND EXT DEFAULTS 
ACCRUE THE FILE NAME 
BR IF ERROR IN GETTING FILE NAME 
Get the device name 
Is it TT? 
Error if yes 

PUSH CURRENT ©FILE STATUS 
DON'T ABORT ON ERRORS 
#FILNAM 

DO . HERR — DON'T CLEAR CARRY FLAG 

BR IF NOT FOUND 

SAY NO DEFAULT DEVICE NAME 

GO SEE IF WE SHOULD RUN IND 

See if there is a command file on SY device with command name. 

MOV R50SY, FILNAM ; CHANGE DEVICE NAME TO BE "SY" 

MOVE #1,SERFLG ; DO . SERR 

. LOOKUP #XAREA. #CFCHAN, #FILNAM 

MOVB #0, SERFLG i DO .HERR, DON'T CLEAR CARRY FLAG 

BCS 1* ; BR IF COMMAND IS NOT A COMMAND FILE 

We located a command file on DK or SY. 
See if we should call IND to execute it. 

GET DEFAULT DEVICE FOR IND FILE 

IS IND ACTIVE NOW? 

BR IF ALREADY ACTIVE 

IS IND WANTED? 

BR IF NOT 

PURGE CHANNEL WE OPENED TO FILE 

POP UP TO OLD FILE 

POINT TO START OF COMMAND LINE 



MOV 


#CMDBUF, R3 i 


MOV 


#DKCDM, R5 i 


CALL 


ACRFN i 


BCS 


6* ; 


MOV 


FILNAM. RO ; 


CALL 


CHKTTD ; 


BCS 


6* ; 


CALL 


PUSHCF J 


MOVB 


#1,SERFLG i 


. LOOKUP 


#XAREA, #CFCHAN, #F 


MOVB 


#0, SERFLG ; 


BCS 


3* •> 


CLR 


R5 i 


BR 


4* ; 



MOV 


#SYTXT, R5 


BITB 


#IN«ACT, CFIND 


BNE 


2* 


BIT 


#*INDDF, LSW5(R1) 


BEQ 


2* 


. PURGE 


#CFCHAN 


CALL 


POPCF 


MOV 


ttCMDBUF, R3 



i 
i 

i 

c 
< 

f 

t 
I 

I 

< 

t 

< 

i 
t 
< 
C 



c 
f 
i 
I 
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58 011006 000167 000426 

59 

60 

61 

62 011012 052761 

63 011020 000167 
64 

65 

66 

67 011024 004767 0000000 

68 

69 

70 

71 011030 012703 

72 011034 012705 

73 011040 004767 
/4 uiiu44 luusuut:: 

75 011046 000167 

76 011052 016700 

77 011056 004767 

78 011062 103421 

79 011064 112767 

80 011072 

81 011112 112767 

82 011120 103406 

83 011122 000167 
84 
85 011126 



OOOOOOG OOOOOOG 
177146 



JMP INDINI i GO START UP IND 
i 

; This is an implicit command file execution. 

i 

2*: BIS #*QUIET,LSW4(Rl)i ALWAYS SET QUIET IF IMPLICIT RUN 

JMP CFOPEN i CONTINUE PROCESSING STARTUP OF ©FILE 



This is not an implicit Sfile call. 



1*: CALL 

i 

} See if theri 



POPCF ; REOPEN PREVIOUS ©FILE 

is a program on "SY" with command name. 



001136' 
000250 ' 
OOOOOOG 

175770 
167362 
OOOOOOG 

000001 OOOOOOG 

000000 OOOOOOG 

OOOOOOG 



; POINT TO COMMAND KEYWORD 
; SET DEFAULT DEV AND EXT 
; ACCRUE FILE NAME 
; BR IF GOT FILE NAME OK 
6$: JMP RDCMD ; ERROR IN GETTING FILE NAME 

5*: MOV FILNAM. RO > Qet the device name 

ils the device FT? 
; Error if yes 
; DO . SERR 
. LOOKUP #XAREA, #RUNCHN, #FILNAM 

MOVE #0, SERFLG i DO . HERR, DON'T CLEAR CARRY FLAG 
BCS TRYUCL i COULDN'T FIND PROGRAM 

JMP DORUN J START RUNNING THE PROGRAM 



MOV 


#CMDBUF, R3 


MOV 


#SYSAV, R5 


CALL 


ACRFN 


BCC 


5* 


JMP 


RDCMD 


MOV 


FILNAM, RO 


CALL 


CHKTTD 


BCS 


BADCMD 


MOVE 


#1, SERFLG 



BADCMD: FABORT #ILLCMD 



; INVALID COMMAND 



f 

c 
i 

( 
I 
c 
I 

i 
i 
€ 

i 
C 

I 

i 



f 
I 

t 

f 
t 
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€ 
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01 
01 
01 
01 



3 
4 

5 
6 

7 

e 

9 
10 

11 01 

12 01 
13 

14 
15 

16 01 

17 01 
18 

19 
20 
21 

22 01 

23 01 

24 01 

25 01 

26 01 

27 01 

28 01 

29 01 

30 01 

31 01 

32 01 

33 01 
34 

35 

36 

37 01 

38 

39 

40 

41 01 



See if there is a tsY: Tt3XUt.L program to process the command 



1136 
1144 
1146 
1152 



1154 
1160 



032761 
001451 
105767 
001046 



105767 
001443 



OOOOOOG 
173151 



OOOOOOG TRYUCL: BIT 

BEQ 
TSTB 
BNE 



#*UCLCL> LSW7<R1) 

URERR 

NOUCL 

URERR 



SHOULD WE CALL TSXUCL LAST? 

BR IF NOT 

DID UCL ALREADY REJECT THIS COMMAND? 

BR IF YES 



Call the TSXUCL program to process this command 



OOOOOOG 



CALUCL: TSTB VUfCL 
BEQ URERR 



i IS THERE A UCL PROGRAM? 
; BR IF NOT 



1202 



103426 



1204 
1210 
1214 
1216 
1220 
1224 
1230 
1234 
1240 
1244 
1252 
1254 



1260 



1270 



012703 
012704 
112423 
001376 
162703 
010367 
012704 
105267 
116701 
052761 
005000 
000167 



0000 12G 
001136' 



0000 13G 
0000 lOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 



1*; 



OOOOOOG 



UCL option is genned in. See if u»e can find UCL program. 

. LOOKUP #XAREA, #RUNCHN, #UCLNAM ; TRY TO FIND SY: UCL. SAV 
BCS 9* ; BR IF CAN'T FIND UCL PROGRAM 

We found the UCL program. 

Pass command line to it in chain area. 



POINT TO CHAIN AREA 
POINT TO COMMAND LINE BUFFER 
MOVE COMMAND TO CHAIN DATA AREA 
LOOP TILL ASCIZ NULL MOVED 
COMPUTE LENGTH OF COMMAND LINE 
AND STORE LENGTH INTO 510 
POINT TO NAME OF UCL PROGRAM 
SIMULATE . CHAIN 
GET CURRENT JOB INDEX NUMBER 
SAY THAT UCL PROGRAM IS RUNNING 
NO RUN OPTION FLAGS FOR PLOAD 
LOAD AND RUN UCL PROGRAM 



iSAY UCL IS MISSING 



MOV 


#CINDAT+12, H3 


MOV 


#CMDBUF, R4 


MOVB 


(R4)+, <R3)-i- 


BNE 


1* 


SUB 


#CINDAT+13, R3 


MOV 


R3, CINDAT+10 


MOV 


#UCLNAM. R4 


INCB 


CINFLG 


MOVB 


C0RUSR,R1 


BIS 


#«UCLRN>LSW7(R1) 


CLR 


RO 


JMP 


PLOAD 



Cannot find TSXUCL program 
9*: FABORT #MISUCL 

Could not identify command 
URERR: FABORT #URCMD 



i UNRECOGNIZABLE COMMAND 



I 



I 
I 



f 

f 

I 

( 

< 

f 

i 
i 
i 

i 






I 



TSKMNl 
CALUKM 
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— Start user-written command processor 



1 

c 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 



1 1 300 1 1 670 1 OOOOOOG 

011304 012704 OOOOOOG 

011310 

011326 103406 



011330 052761 OOOOOOG OOOOOOG 

011336 005000 

011340 000167 OOOOOOG 



011344 042761 OOOOOOG OOOOOOG 9*: 
011352 



. SBTTL CALUKM — Start usei — written command processor 

Call user-written command interface program. 

CALUKM: MOVB CORUSR.Rl J Get job index number 

MOV #UCISPC.R4 ; Get pointer to program name for PLOAD 
.LOOKUP #XAREA, #RUNCHN. R4; Try to lookup program 
13CS 9* i Br if cannot find program 

We found the program. Enter it. 



BIS #*UKMRN/ LSW7(Rl)i Say user command processor is running 

CLR RO 

JMP PLOAD i Enter the program 



; No run option flags for PLOAD 



Cannot find the program. 

BIC #*UKMONi LSW7<R1); Don't try to use the program again 
FABORT #EM*NUK ; Program not there 



f 

f 
I 

< 

< 
I 

( 

c 

« 



( 



I 
I 
I 

I 
« 
I 
r 
I 
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f 
I 

€ 
I 

I 
I 
< 

c 
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t 
( 



TSKMNl - 
CMDIND - 

1 
2 
3 
4 
5 
6 
7 

e 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 



- TSX-Plus Keyboard 

- IND command 
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011362 



01 
01 
01 



1362 
1366 
1370 



01 
01 
01 
01 
01 
01 
01 
01 
01 



01 
01 



1400 
1404 
1406 
1410 
1412 
1416 
1422 
1424 
1430 



1432 
1434 



SBTTL CMDIND 



IND command 



005767 
001004 



OOOOOOG 



A command of the form "IND file" has been entered. 

Call the IND program to process the indirect command file. 

CMDIND: 

See if IND is available 

TST INDSAV 
BNE 1* 
FABORT #NOIND 



Is IND available on system? 

Br if yes 

IND is not available 



Accrue the file name so that uje can check later to see if the 
command file was installed with any special privileges. 



004767 
105713 
001411 
010304 
012705 
004767 
103002 
000167 
010403 



OOOOOOG 



000244 ' 
OOOOOOG 

175412 



1*; 



2*: 



CALL 


SKPSPC 


TSTB 


(R3) 


BEQ 


4* 


MOV 


R3, R4 


MOV 


#DKCOM, R5 


CALL 


ACRFN 


BCC 


2« 


JMP 


RDCMD 


MOV 


R4, R3 



Start execution of IND 



005005 

000167 000000 



4*: 



CLR 
JMP 



R5 
INDINI 



SKip over any spaces 

Any file specified? 

Br if not 

Save pointer to start of command file 

Set default device and extension 

Accrue the file name 

Br if got file name ok 

Error accruing file name 

Restore pointer to start of file spec 



; No default device string 
; Startup IND 



I 



I 

» i 

< 
I 
( 
C 
I 

c 

( 



f 



f 



I 



t • 



132767 
001404 
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INDINI — Start IND program 



c 

3 

4 

5 

6 

7 

8 

9 
10 011440 
11 
12 
13 

14 011440 

15 011446 

16 011450 
17 
IS 
19 

20 011460 

21 011464 
22 

23 

24 

25 011472 O04767 000440 

26 

27 

28 

29 011476 012702 001362' 

30 

31 

32 

33 011502 012704 004330' 

34 01: 

35 01 

36 01 
37 
38 
39 

40 01 

41 01 



OOOOOOG OOOOOOG 
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. SBTTL INDINI — Start IND program 
Call IND to process an indirect command file. 



Inputs: 
R3 = Pointer to asciz command line. 
R5 = Pointer to default device string (asciz) 
FILNAM - File spec for command file being started 

INDINI: 

Error if IND is already running 

BITB #IN*ACT, INDSTA ils IND running now? 

BEQ 6* J Br if not 

FABORT #INDACT i IND is already active 

Set flag that says IND i& being started 



116701 
052761 



OOOOOOG 
OOOOOOG 



OOOOOOG 



6$: MOVB CORUSR.Rl iGet job index number 
BIS #*INDRN, LSW5<Rl)i Say IND is running 

See if command file was installed with any privileges 

CALL INSCF ;See if command file was installed 

Build command line of the form "SY: IND file— name" 



MOV #BLKO, R2 
Insert "SY: IND " 



1502 
1506 
1510 
1512 



012704 
112422 
001376 
005302 



1«: 



MOV 


#SYINTX,R4 


MOVE 


<R4)+, (R2)+ 


BNE 


1* 


DEC 


R2 



; Point to area where we will build command 



; Point to "SY: IND " text string 
i Copy text string 
; Loop till null hit 
;Point back to null 



See if we need to insert default device name 



42 01 

43 01 

44 01 
45 
46 

47 

48 01 

49 01 

50 01 
51 

52 
53 

54 01 

55 01 

56 01 

57 01 



1514 
1516 
1520 
1522 
1524 



1526 
1530 
1532 



1534 
1540 
1542 
1544 



005705 
001403 
112522 
001376 
005302 



010304 



001376 



012702 
010304 
112224 
001376 



3*: 



TST 


R5 


BEQ 


2* 


MOVE 


(R5)+, (R2) + 


BNE 


3* 


DEC 


R2 



Copy command text string 



2*: 
4*: 



MOV 


R3, R4 


MOVE 


(R4)+, <R2)+ 


BNE 


4* 



; Do we have a default device name? 

> Br if not 

/Move in default device name 

/Point back over terminating null 



; Get pointer to command buffer 
/Copy command text string 



i Now move string back to command buffer 



001362' 



5*: 



MOV 


#ELKO/ R2 


MOV 


R3, R4 


MOVE 


(R2)+/ (R4) + 


BNE 


5* 



i Point to start of new string 
; Point to destination area 
i Copy string 
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58 
59 
60 

61 01 

62 01 

63 01 

64 01 
65 

66 
67 

68 01 

69 01 

70 01 

71 01 

72 01 

73 01 

74 01 

75 01 

76 01 



1546 
1554 
1562 
1566 



1572 
1612 
1616 
1622 
1630 
1634 
1642 
1650 
1652 



1 56767 
142767 
012705 
000167 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
000250 ' 
OOOOOOG 



iMOui process iiKe a k commana 

BISB UERSEV, INDEKR 

BICB #IN*CMD, INDSTA 

MOV #SYSAVi R5 

JMP RUNNAM 



iPass error sev level to IND 
; Say no IND command pending 
;Point to default device <SY) 
; Enter RUN code 



Reopen channel to IND. SAV file 
INDRUN: .REOPEN #XAREA, #RUNCHN, #INDSAV ; REOPEN CHANNEL 16 TO IND 



012704 
105267 
156767 
116701 
052761 
142767 
005000 
000167 



000372 ' 
OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG 



MOV 

INCB 

BISB 

MOVB 

BIS 

BICB 

CLR 

JMP 



#INDNAM, R4 
CINFLG 

UERSEV, INDERR 
CORUSR.Rl 



i POINT TO NAME OF IND 
i SAY A .CHAIN IS IN PROGRESS 
i PASS ERROR SEV LEVEL TO IND 
} GET JOB INDEX NUMBER 



#*INDRN, LSW5<Rl)iSAY IND IS RUNNING 
#IN*CMD, INDSTA ; SAY NO IND COMMAND PENDING 
RO i No run option flags for PLOAD 

PLOAD i GO START RUNNING IND 
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f 
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( 
i 
i 
I 

f 

f 

I 

I 
I 

4 

I 

I 
t 

< 

i 

I 

I 

k 
i 

I 

I * 
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1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



SBTTL Process CCL commands 



01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 

01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 

01 
01 
01 



1656 
1662 
1666 
1670 
1674 
1676 
1702 
1704 
1710 
1714 
1716 
1722 
1724 
1730 
1732 

1734 
1736 
1742 
1746 
1750 
1754 
1756 
1762 
1764 
1772 
1774 
2000 
2002 
2006 
2014 
2016 
2022 
2026 
2030 
2034 
2040 
2042 
2046 
2054 
2056 
2062 
2066 

2072 
2112 
2116 



012703 
012704 

JL J. iBi*tWW 

120027 
001403 
120027 
001002 
112700 
120027 
103405 
120027 
101002 
162700 
110023 
001355 

005003 
016104 
032704 
001417 
032704 
001403 
052703 
000411 
026127 
001403 
052703 
000402 
052703 
032761 
001402 
052703 
032704 
001402 
052703 
032704 
001402 
052703 
032761 
001402 
052703 
110337 
110137 



012704 
105267 



THIS ROUTINE HANDLES CCL COMMANDS SUCH AS COMPILE, COPY, ETC. 
IT MOVES THE CCL COMMAND TO THE CHAIN DATA AREA THEN CALLS 
THE PROGRAM "SY: CCL. SAV" WHICH TRANSLATES THE CCL COMMAND 
INTO A SERIES OF SIMPLE COMMANDS WHICH ARE RETURN TO KMON 
IN THE CHAIN AREA WHEN CCL. SAV EXITS. 



MOVE CCL COMMAND TO CHAIN AREA. 



0000 12G 
001136' 

000011 

000014 

000040 
000141 

000172 

000040 



1*: 



10«: 
11*: 



6$: 



NOW 



OOOOOOG 
OOOOOOC 

OOOOOOG 

000001 

OOOOOOG OOOOOOG 7*: 

000020 



000040 
OOOOOOG 

000100 
OOOOOOG 

000002 
OOOOOOG 

000010 
OOOOOOG 

000004 
0000 lOG 
00001 IG 



000362 ' 
OOOOOOG 



OOOOOOG 



OOOOOOG 5* 



4*: 



CMDCCL: MOV 
MOV 
MOVE 
CMPB 
BEQ 
CMPB 
BNE 
MOVE 
CMPB 
BLO 
CMPB 
BHI 
SUB 
MOVB 
BNE 
SET SOME 
CLR 
MOV 
BIT 
BEQ 
BIT 
BEQ 
BIS 
BR 
CMP 
BEQ 
BIS 
BR 
BIS 
BIT 
BEQ 
BIS 
BIT 
BEQ 
BIS 
BIT 
BEQ 
BIS 
BIT 
BEQ 
BIS 
MOVB 
MOVB 
Reopen chann 
. REOPEN 
MOV 
INCB 



8*: 
2*: 



9*: 



3*: 



#CINDAT+12, R3 
#CMDBUF, R4 
<R4)+, RO 
RO. #TAB 
10* 

RO, #FF 
11* 

#' , RO 
RO, #141 
6* 

RO, #172 
6* 

#40, RO 
RO, (R3) + 
1* 

FLAGS IN LOCATI 
R3 

LSW5<R1),R4 
#*TECO!*KED, R4 
2* 

#«TECO, R4 
7* 

#C*TECO, R3 
2* 

LTRMTP<R1),#VT5 
8* 

#C«KED, R3 
2* 

#C*K52, R3 
#*DIBOL, LSW6<R1 
9* 

#C*DIBL, R3 
#*WILD, R4 
3* 

#C*WILD, R3 
#*CLTST, R4 
5* 

#C*TEST, R3 
#*QUIET, LSW4(R1 
4* 

#C*QUIT, R3 
R3, @#CINDAT+10 
Rl, @#CINDAT+11 
el 16 with CCL f 
ttXAREA, #RUNCHN, 
#CCLNAM, R4 
CINFLG 



POINT TO CHAIN DATA AREA 

POINT TO COMMAND BUFFER 

GET NEXT CHAR FROM COMMAND LINE 

IS CHARACTER TAB? 

BR IF YES 

FORM-FEED? 



i TRANSLATE TAB AND FF TO SPACE 
;SEE IF IT IS A LOWER CASE LETTER 
;BR IF NOT 
i LOWER CASE Z 
;BR IF DELIMITER 

; CONVERT LOWER-CASE UP UPPER-CASE 
i MOVE CHAR TO CHAIN AREA 
; LOOP TILL ASCIZ NULL MOVED 
ON 510 
i FORM FLAG WORD IN R3 
iPICK UP STATUS WORD 
; IS DEFAULT EDITOR TECO OR KED? 
i BR IF NOT <MUST BE EDIT THEN) 
i IS IT TECO? 
i BR IF NOT 
i TELL CCL TO USE TECO 

li IS TERMINAL TYPE VT52? 
;BR IF YES (EDITOR = K52) 
} DEFAULT EDITOR = KED 

DEFAULT EDITOR = K52 
)i IS DIBOL OR DEL DEFAULT COMPILER? 

BR IF DEL IS DEFAULT 

REMEMBER DIBOL IS DEFAULT 

WANT IMPLICIT/EXPLICIT WILDCARDS? 

BR IF WANTS EXPLICIT 

SET IMPLICIT-WILDCARD FLAG 

DO CCL IN TEST MODE? 

BR IF NOT 

SET TEST MODE FLAG 
);ARE COMMAND FILES IN QUIET MODE? 

BR IF NOT 

SET QUIET FLAG 

STORE FLAG WORD INTO CHAIN DATA AREA 

STORE USER INDEX # IN 511 FOR CCL 
ile status saved during initialization. 
#CCLSAV ; OPEN CHANNEL TO CCL. SAV FILE 
; POINT TO CELL WITH CCL NAME 
; SIMULATE CHAIN 
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58 012122 052761 OOOOOOG OOOOOOG BIS #*CCLRN, LSW5(R1 >; REMEMBER CCL. SAV IS RUNNING 

59 012130 005000 CLR RO ; No run option flags for PLDAD 

60 012132 000167 OOOOOOG JMP PLOAD i LOAD AND START CCL. SAV 
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- See if a command file is installed with priv 



012136 010246 



12140 
12144 
12150 



12152 
12156 
12164 
12172 
12176 
12200 
12206 



12212 
12214 



012700 
004767 
103420 



012702 
056262 
046262 
162702 
002367 
056767 
004767 



012602 
000207 



. SBTTL INSCF — See if a command file is installed utith priv 

This routine is called when uie are starting a command file to see 

if the command file has been installed with any privileges. 

If so, the privileges are applied to the command file and current 

privileges for the job. 

PUSHCF should be called before this routine. 

Inputs: 
FILNAM = File spec for command file being started 

J 

INSCF: MOV R2, -<SP) 

i 

i See if this command file is installed 



000440 ' 
OOOOOOS 



liOV #FILNAIi, RO 
CALL INSSRC 
BCS 9* 

Command file is installed. 
Apply any privilege changes. 



; Point to file spec 

i See if file is in install table 

; Br if not 



OOOOOOC 

OOOOOOC OOOOOOG 
OOOOOOC OOOOOOG 
000002 

00000 IC OOOOOOG 
OOOOOOG 



MOV 
1$: BIS 
BIC 
SUB 
BGE 
BIS 
CALL 

; Finished 

i 

9*: MOV 

RETURN 



#2*<PVNPW-1>, R2 ;Get index to last privileqe word 

II*PRV+IIBUF<R2),PRIVF0(R2) i Set some flags 

II*NPV+IIBUF<R2), PRIVF0<R2) ; Clear some flags 

#2, R2 iMore to do? 

1* i Loop if yes 

II«FLG+IIBUF, AFCF ; Set command file attribute flags 

RSTPRV j Set current attributes for command file 



<SP)+, R2 
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012216 


010246 




10 








11 








12 








13 


012320 


016100 


OOOOOOG 


14 


012224 


016102 


OOOOOOG 


15 








16 


012230 


032700 


OOOOOOG 


17 


012234 


001410 




18 


012236 


042702 


OOOOOOG 


19 


012242 


052702 


OOOOOOG 


20 


012246 






21 


012254 


000503 




22 








23 


012256 


032700 


OOOOOOG 


24 


012262 


001410 




25 


012264 


042702 


OOOOOOG 


26 


012270 


052702 


OOOOOOG 


27 


012274 






2S 


012302 


000470 




29 








30 


012304 


032700 


OOOOOOG 


31 


012310 


001410 




32 


012312 






33 


012320 


042702 


OOOOOOG 


34 


012324 


052702 


OOOOOOG 


35 


012330 


000455 




36 








37 


012332 


032700 


OOOOOOG 


38 


012336 


001410 




39 


012340 






40 


012346 


042702 


OOOOOOG 


41 


012352 


052702 


OOOOOOG 


42 


012356 


000442 




43 








44 


012360 


032700 


OOOOOOG 


45 


012364 


001405 




46 


012366 


042702 


OOOOOOG 


47 


012372 


052702 


OOOOOOG 


48 


012376 


000432 




49 








50 


012400 


032700 


OOOOOOG 


51 


012404 


001405 




52 


012406 


042702 


OOOOOOG 


53 


012412 


052702 


OOOOOOG 


54 


012416 


000422 




55 








56 


012420 


032700 


OOOOOOG 


57 


012424 


001410 
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. SBTTL TRMINI — Perform terminal-dependent initialization 

TRMINI is called during job start-up initialization to perform 
terminal dependent initialization. 

Inputs: 
Rl == Job index number. 

TRMINI; MOV R2, -(SP) 

Get initial LSW2 flags 

i GET TERMINAL TYPE FLAGS 
; GET LSW2 FLAGS 

i IS THIS A VTIOO TERMINAL? 

i BR IF NOT 

i SET FLAGS FOR LSW2 

i CLEAR SCREEN 



i Bt if not 

iSet flags for VT200 

i Clear screen 



i IS THIS A VT52 TERMINAL? 

; BR IF NOT 

; CLEAR SCREEN 

i SET FLAGS IN LSW2 



IS THIS AN ADM3A TERMINAL? 
BR IF NOT 
CLEAR SCREEN 
SET LSW2 FLAGS 



IS THIS AN LA36? 
BR IF NOT 
SET FLAGS 



IS THIS AN LA120? 
BR IF NOT 
SET FLAGS 



i HAZELTINE TERMINAL? 
; BR IF NOT 



MOV 


LTRMTP(Rl).. RO 


MOV 


LSW2<R1),R2 


; VTIOO 




BIT 


#VT100, RO 


BEQ 


14* 


BIC 


#VT10N0, R2 


BIS 


#VT10FL,R2 


. PRINT 


#IMVT10 


BR 


15* 


; VT2<)0 




14$: BIT 


#VT2007 i VT200 


BEQ 


32* 


BIC 


#VT20N0. R2 


BIS 


#VT20FL. R2 


. PRINT 


#IMVT10 


BR 


15* 


; VT52 




324: BIT 


#VT52i RO 


BEQ 


16* 



. PRINT #IMVT52 

BIC #VT52N0. R2 

BIS #VT52FL. R2 

BR 15* 

i ADM3A 

16*: BIT #ADM3A, RO 

BEQ 17* 

.PRINT #IMADM3 



BIC 
BIS 
BR 

i LA36 

17*: BIT 
BEQ 
BIC 
BIS 
BR 

> LA J 20 

IS*: BIT 
BEQ 
BIC 
BIS 
BR 

i Hazeltine 

19*: BIT 
BEQ 



#ADM3N0> R2 
#ADM3FL» R2 
15* 

#LA36, RO 
18* 

#LA36N0, R2 
#LA36FL, R2 
15* 

#LA120, RO 
19* 

#LA12N0, R2 
#LA12FL. R2 
15* 

#HAZEL, RO 
20* 



4 
I 
4 

i 
f 

€ 



i 
< 
I 

4 
i 

4 



I 
< 

i 
f 
I 
I 
C 

c 

« 

I 

( 



TSKMNl — 
TRMINI — 

5B 

59 

60 

61 
62 

63 

64 O 

65 

66 
67 

68 

69 

/ SJ 

71 
72 

73 O 

74 



TSX-Plus Keyboard Mon MACRO V05. 05 Thursday 
Perform terminal-dependent initialization 



19-Jan-89 09:05 Page 26-1 



12426 

12440 
12444 

12446 
12452 
12454 
12460 

12464 
12470 



12474 
12476 



042702 
052702 
000407 



032700 
001410 
042702 
052702 

010261 
010261 



012602 
uuu2u/ 



OOOOOOG 
OOOOOOG 



OOOOOOC 

OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 



R2 



.PRINT #IMHAZL 
BIG #HAZLNO< 
BIS #HAZLFL. 
BR 15* 

; D I ABLE & QUME 

20*: BIT #DIABLO!QUMe, 
BEQ 1* 
BIG «DIABN0/R2 
BIS #DIABFL>R2 

; Store updated LSW2 flags. 

15*: MOV R2, LSW2<RD 
MOV R2, LSW2S<R1) 



.: CLEAR SCREEN 

; SET TERMINAL CONTROL FLAGS 



RO 



i DIABLO OR 
; BR IF NOT 
i SET FLAGS 



QUME TERMINAL? 



Finished 



1*: 



MOV 
RETURN 



<SP)+, R2 



« 
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VIRINI — Virtual line initialization 



. SBTTL VIRINI 



Virtual line initialization 



f 
I 

i 

> i 

I 



3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 

21 

22 O 

23 

24 

25 

26 

27 

28 

29 
30 
31 
32 

33 

34 

35 

36 

37 

38 

39 

40 

41 
42 
43 
44 

45 

46 
47 
48 
49 

50 

51 

52 



12500 
12502 
12504 



010246 
010346 
010446 



012506 016102 0000000 



12512 
12516 
12520 
12524 
12530 
12534 
12536 
12540 
12544 



12546 
12552 
12554 
12556 
12560 
12562 
12566 
12574 
12602 



12612 

12616 



12622 
12624 



005762 
001413 
012700 
110260 
106260 
104375 
103403 
012700 
104375 



016204 
005003 
005203 
120124 
001375 
062703 



OOOOOOG 

001074' 

000007 

000007 



001106' 



OOOOOOG 



000060 



12626 
53 012630 



016102 
004767 



012604 
012603 
012602 
000207 



OOOOOOG 
OOOOOOG 



Perform initialization for virtual lines during job startup. 

If the primary line is using display windows then create a display 

uiindow for the virtual line. Otherwise print n>. 



Inputs: 
Rl = Job index number 



VIRINI: MOV 
MOV 
MOV 



R2. -(SP) 
R3, -(SP) 
R4.. -<SP) 



Get job index number of our primary job 

MOV LNPRIM<R1), R2 i GET PRIMARY LINE INDEX NUMBER 

If primary line is using a display window^ try to create one for 
this job. 

Is primary line using a display window? 

Br if not 

Point to make-window argument block 

Set index # of primary job 

Convert index to job number 

Try to create a window 

Br if unable to create a window 

Point to map-window argument block 

Select this window 



GET ADDRESS OF TABLE WITH VIRTUAL LINES 
COUNT VIRTUAL LINE #'S 

iLOOK UP OUR VIRTUAL LINE # 

CONVERT NUMBER TO ASCII 
PRINT CR-LF 
PRINT LINE # 
PRINT '>' 



Try to copy any key definitions from primary line 





TST 


LWIND0(R2) 




BEQ 


1* 




MOV 


#MAKWIN. RO 




MOVE 


R2. 7<R0) 




ASRB 


7(R0) 




EMT 


375 




BCS 


1« 




MOV 


#MAPWIN, RO 




EMT 


375 


; Prin 


t n> 




1«: 


MOV 


LSECPT(R2),R4 ; 




CLR 


R3 i 


13*: 


INC 


R3 




CMPB 


Rl, <R4>+ i 




BNE 


13* 




ADD 


#'0, R3 i 




. PRINT 


#CRLF ; 




. TTYOUT 


R3 i 




. TTYOUT 


#76 i 



9*: 



MOV 


LNPRIM<R1),R2 


CALL 


INIUKD 


Finished 




MOV 


<SP)+, R4 


MOV 


<SP)+. R3 


MOV 


<SP)+, R2 


RETURN 





i Get our primary line number 
iCopy any user-defined keys 
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012632 
012634 
012636 



012640 
012644 

13 012646 

14 

15 

16 

17 012652 

IS 012656 

19 012662 

20 012666 

21 012670 
22 

23 
24 

25 012674 

26 012700 

27 012706 
28 

29 
30 

31 012710 

32 012712 

33 012714 

34 012720 

35 012724 

36 012730 

37 012734 

38 012740 

39 012742 

40 012744 

41 012752 

42 012760 

43 012766 
44 

45 
46 

47 012774 

48 013002 
49 

50 
51 

52 013010 

53 013014 

54 013020 

55 013026 
56 

57 



010246 
010346 
010546 



016102 
001002 



010267 
006267 
012700 
104375 
004767 



012700 
116260 
in4r^75 



010203 
010105 
070327 
070527 
062703 
062705 
012700 
112325 
077002 
016261 
016261 
016167 
016167 



016261 
016261 



016200 

042761 

050061 



. SBTTL CPYPRN — Copy context info from parent job 
Copy context information from a parent job. 



CPYPRN: MOV 
MOV 
MOV 



R2, -(SP) 
R3i -(SP) 
R5, -<SP) 



OOOOOOG 
000456 



165704 
165700 
000560 ' 

OOOOOOG 



001070' 
OOOOOOG 000002 



Return immediately if there is no parent job 

MOV LPARNT<R1),R2 i Get # of parent job 

BNE 2* i Br if there is a parent job 

JMP 9* i No parent job — Nothing to copy 

Copy file context and privilege information 



J$: riOv Kc!/ ChYCX i +2 

ASR CPYCXT+2 

MOV #CPYCXT> RO 

EMT 375 

CALL LDCLEN 

Copy execution priority 



f Get # of parent job 

; Convert to job number 

J Point to EMT arg bio els 

i Copy context from parent job 

/Reinit LD status 



MOV #PRIEMT*RO i Point to emt argument block 

MOVB LBSPRI <R2), 2<R0); Get base priority from parent job 

EMT 375 ; Set the job priority 



Copy user name and PPN 



000006 

000006 

OOOOOOG 

OOOOOOG 

000014 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG 000002G 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



OOOOOOG 
OOOOOOC 

OOOOOOG OOOOOOG 
OOOOOOG 



1*: 



MOV 

MOV 

MUL 

MUL 

ADD 

ADD 

MOV 

MOVB 

SOB 

MOV 

MOV 

MOV 

MOV 



Get 
Get 
Get 
Get 



# of parent job 

# of our job 
offset to name of 
offset to name of 



R2, R3 

R1,R5 

#6. , R3 

#6. , R5 

#LUNAME, R3 

#LUNAME, R5 

#12. ,R0 

(R3)+, (R5) + 

RO, 1« 

LPR0J<R2), LPR0J<R1 ); Copy project number 

LPR0G<R2), LPR0G<R1 ); Copy programmer number 

LPR0J<R1 >, UPPN ; Set project number 

LPR0G(R1 ), UPPN+2i Set programmer number 



Point to tables 

Get # chars to move 
Copy user names 



parent job 
our job 



Copy flags from LSW2 

MOV LSW2(R2),LSW2<R1) ; Copy LSW2 flaqs 
MOV LSW2S<R2), LSW2S<R1) 



Copy some flags from LBWb 



MOV 
BIC 
BIC 
BIS 



LSW5<R2),R0 
#-^C<ISPF5>> RO 



iGet flags from parent's LSW5 
11 but selected flags 



#ISPF5, LSW5<R1 ) J Clear those flags in our LSW5 
RO, LSW5<R1) ; Transfer flags from parent job 



I 
I 



I 
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4 



Copy some flags from L8W6 
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58 








t 


59 


013032 


016200 


OOOOOOG 




60 


013036 


042700 


OOOOOOC 




61 


013042 


042761 


OOOOOOG 


OOOOOOG 


62 


013050 


050061 


OOOOOOG 




63 










64 










65 










66 


013054 


016200 


OOOOOOG 




67 


013060 


042700 


OOOOOOC 




68 


013064 


042761 


OOOOOOG 


OOOOOOG 


69 


013072 


050061 


OOOOOOG 




70 










71 










72 










73 


013076 


016200 


OOOOOOG 




74 


013102 


042700 


OOOOOOC 




75 


013106 


042761 


OOOOOOG 


OOOOOOG 


76 


013114 


050061 


OOOOOOG 




77 










78 










79 










80 


013120 


016200 


OOOOOOG 




81 


013124 


042700 


OOOOOOC 




82 


013130 


042761 


OOOOOOG 


OOOOOOG 


83 


013136 


050061 


OOOOOOG 




84 










85 










86 










87 


013142 


010267 


165714 




88 


013146 


012767 


OOOOOOG 


165710 


89 


013154 


012767 


OOOOOOC 


165704 


90 


013162 


012700 


001056' 




91 
92 
93 


013166 


104375 














94 










95 


013170 


012767 


OOOOOOG 


165666 


96 


013176 


012767 


000006 


165662 


97 


013204 


012700 


001056' 




98 


013210 


104375 






99 










100 










101 










102 


013212 


012767 


OOOOOOG 


165644 


103 


013220 


012767 


000010 


165640 


104 


013226 


012700 


001056' 




105 


013232 


104375 






106 










107 










108 










109 


013234 


012767 


OOOOOOG 


165622 


110 


013342 


012767 


000020 


165616 


111 


013250 


012700 


001056' 




112 


013254 


104375 






113 








i 


114 








i 



ob 
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i Qev rj.ags from parent; ■ s L5w6 
j Clear all but selected flags 
i Clear those flags in our LSW6 
; Transfer flags from parent job 



iGet flags from parent's LSW7 
jClear all but selected flags 
j Clear those flags in our LSW7 
> Transfer flaas from oarent lob 



Get flags from parent's LSW9 
Clear all but selected flags 
Clear those flags in our LSW9 
Transfer flags from parent job 



nuv L.iJWfi><R2^» KU 

BIC #'-C<ISPF6>, RO 

BIC #ISPF6, LSW6<R1) 

BIS - RO, LSW6(R1) 

Copy some flags from LSW7 

MOV LSW7(R2)>R0 

BIC #-^C<ISPF7>, RO 

BIC #ISPF7, LSW7(R1) 

BIS RO, LSW7(R1) 

Copy some flags from LSW9 

MOV LSW9<R2),R0 

BIC #-C<ISPF9>, RO 

BIC #ISPF9, LSW9<R1) 

BIS RO, LSW9(R1> 

Copy some flags from LSWil 



MOV LSW11<R2),R0 iGet flags from parent's LSWll 

BIC #-C<ISPFil>, RO i Clear all but selexted flags 

BIC #ISPF11, LSWIKRI )i Clear those flags in our LSWll 

BIS RO, LSWIKRI) ; Transfer flags from parent job 



Copy Kmon prompt string 



MOV R2, EMCXCP+4 ; Set # of job we are copying 

MOV #KMPRMT, EMCXCP+6J Set address of item 

MOV #«MXPRMT+2>&76>, EMCXCP+8. ; Set # bytes to copy 

MOV #EMCXCP,RO i Point to EMT arg block 

EMT 375 i Copy Kmon prompt string 



from 



Copy default printer form name 



MOV #UFORM, EMCXCP+6 

MOV #6, EMCXCP+8. 

MOV #EMCXCP,RO 

EMT 375 



; Set address of item 
i Set # of bytes to copy 
i Point to EMT arg block 
j Copy default form name 



Copy User Command Interface <UCI) file spec 

MOV #UCISPC» EMCXCP+6; Set address of item to copy 

MOV #8. , EMCXCP+8. ; Set # bytes to copy 

MOV #EMCXCP,RO i Point to EMT arg block 

EMT 375 iCopy UCI file spec 

Copy subprocess start-up command file spec 

MOV #SBPSUF, EMCXCP+6i Set address of item to copy 

MOV #16. , EMCXCP+8. j Set # bytes to copy 

MOV #EMCXCP,RO ; Point to EMT arg block 

EMT 375 iCopy subprocess start-up file 

Copy print-iuindow device information 



i 
f 

I 
( 

f 



spec 



f 

I 

I 

i 
€ 
I 

I 
< 

I 
( 
i 

I 

i 



c 

I c 

\ 

i < 

f 
f 

f 

i 

I 
( 
< 
I 
I 

t 

I 

t 
I 

( 

i 



TSKMNl - 
CPYPRN - 

115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
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013256 
013264 
013272 
013276 
013300 
013306 
013312 
013314 
013322 
013326 



012767 
012767 
012700 
104375 
012767 
012700 
104375 
012767 
012700 
104375 



OOOOOOG 

000002 

001056' 

OOOOOOG 
001056' 

OOOOOOG 
001056' 



165600 
165574 



165556 



165542 



MOV 


#JPWDEV, EMCXCP+6i 


MOV 


#2, EMCXCP+S. ; 


MOV 


#EMCXCP, RO } 


EMT 


375 i 


MOV 


#JPWTYP; EMCXCP+6i 


MOV 


#EMCXCP, RO i 


EMT 


375 ; 


MDV 


#JPWFLG, EMCXCP+6; 


MOV 


#EMCXCP, RO J 


EMT 


375 ; 



Set address of print— uiindoui device 

Set # bytes to copy 

Point to EMT arg block 

Copy JPWDEV 

Set address of pr int-mindouj dev type 

Point to EMT arq block 

Copy JPWTYP 

Set address of pr int-u»indow flag word 

Point to EMT arg block 

Copy JPWFLG 



126 






127 






12S 






129 


013330 


012605 


130 


013332 


012603 


131 


013334 


012602 


132 


013336 


000207 



h sed 



9*: 



MOV 


(SP)+, R5 


MOV 


(SP)+. R3 


MOV 


(3P)+, R2 


RETURN 





I 
I 
I 
( 
f 

i 

€ 
t 

I 
i 
€ 
€ 

I 
i 



I 
I 
I 

( 
« 

I 

I 
t 

f 

( 



» 4 
< 



TSKMNl — 
PRTGRT — 



3 
4 
5 
6 

7 
S 
9 

10 

11 
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13 

14 

15 

16 

17 

18 
19 
20 
21 

22 

23 

24 

25 

26 

27 

28 

29 

30 
31 
32 
33 

34 

35 

36 

37 
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39 O 

40 

41 

42 

43 

44 
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47 

48 
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50 
51 
52 

53 
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55 

56 
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13340 
13344 
13346 
13352 
13354 
13362 
13370 
13372 
13400 
13404 
13406 
13412 



13414 
13420 
13422 
13426 
13430 
13432 
13434 
13436 
13442 



13444 
13450 
13452 
13456 
13460 
13464 
13466 
13470 
13474 
13500 
13504 
13506 
13510 
13512 
13520 
13522 



13524 
13530 

13532 
13536 



3BTTL PRTGRT 



Print the logon greeting message 



020127 
003157 
005727 
001403 

032761 
001064 
052761 
020127 
101056 
005727 



012702 
005003 
012704 
1 1 2200 
060003 
005400 
001424 
020227 
103371 



105767 
001003 
005727 
001013 
020227 
103410 
101357 
1 1 2724 
112724 
112724 
000750 
1 1 0024 
001346 

005403 
005203 



020327 
001404 

005037 
005037 



OOOOOOG 
000002 

OOOOOOG OOOOOOG 



OOOOOOG 
OOOOOOG 

000002 



OOOOOOG 



176532G 
001362' 



OOOOOOG 



OOOOOOG 

000001 

OOOOOOG 



000056 
000015 
000012 



OOOOOOG 



000100 
000060 



During logon processing* print the TSX-Plus logon greeting message. 
The greeting message is different depending on the value of GREET and 
the PROFLG <flag indicating a professional machine). 

IS THIS A REAL OR VIRTUAL LINE? 

BR IF VIRTUAL — ABBREVIATE GREETING 

IS PRINTED GREETING WANTED? 

BR IF NOT 

TSX NAME AND VERSION NUMBER 

IS THIS THE 1ST TIME THIS LINE LOGGED ON? 

BR IF NOT 

REMEMBER 1ST LOGON HAS OCCURED 

IS THIS A REAL OR VIRTUAL LINE? 

BR IF VIRTUAL — SKIP LONG MESSAGE 

SHOULD WE PRINT GREETING MESSAGE? 

BR IF NOT 



PRTGRT: CMP 


Rl, #LSTPL 


BGT 


GRTVIR 


TST 


#GREET 


BEQ 


23* 


. PRINT 


#GRT1 


23*: BIT 


#*1STLG, LSW6(R1) 


BNE 


GRTFIN 


BIS 


#*1STLG, LSW6(R1) 


CMP 


R1,#LSTPL 


BHI 


GRTFIN 


TST 


#GREET 


BEQ 


GRTFIN 



Calculate the message checksum. 



MOV #SUMS~1246, 

CLR R3 

MOV #BLKO, R4 

2*; MOVE (R2)+, RO 

ADD RO, R3 

NEG RO 

BEQ 3* 

CMP R2, #LICTXT 

BHIS 2* 



R£ 



GET ADDRESS OF START OF MESSAGE 

FORM CHECKSUM IN R3 

TEMPORARILY STORE GREETING HERE 

GET CHARACTER FROM MESSAGE 

FORM CHECKSUM 

DECRIPT CHARACTER 

BR IF END OF MESSAGE TEXT 

CHECK FOR LICENSE TEXT 

BR IF INTO THE LICENSE TEXT 



Check for various flags that indicated message variations. 



TSTB 
BNE 
TST 
BNE 

4*: CMP 
BLO 
BHI 
MOVB 
MOVE 
MOVB 
BR 

3*: MOVB 
BNE 

1*: . PRINT 
NEG 
INC 
*«■*#**#«#***» 
If the foil 
change the 
CMP 
BEQ 
Checksum fa 
CLR 
CLR 



PROFLG 

4* 

#GREET-1 

3* 

R2. #TRGRET 

3* 

2* 

#'. , <R4) + 

#CR, (R4)+ 

#LF, <R4)+ 



ARE WE RUNNING ON A PROFESSIONAL? 

BR IF YES — PRINT TRUNCATED GREETING 

CHECK FOR TRUNCATED GREETING MESSAGE 

BR IF FULL MESSAGE IS PRINTED 

CHECK FOR TRUNCATED MESSAGE END 

CONTINUE MOVING THE GREETING MESSAGE 

GET THE NEXT CHARACTER 

PLACE PERIOD AT THE END OF TRUNCATED MESSAGE 

PLACE CARRIAGE RETURN AFTER PERIOD 

PLACE LINE-FEED AFTER PERIOD 

GET THE NEXT CHARACTER 

PUT IN TEMP BUFFER 

BR IF MORE OF MESSAGE TEXT 

PRINT GREETING MESSAGE 

DECRIPT CHECKSUM 



RO, (R4)+ 

2* 

#BLKO 

R3 

R3 

ou»ing range of instructions are altered — 

program that assigns micro TSX-Plus license numbers. 

R3> #SUCS i CHECK CHECKSUM 

GRTFIN iBR IF OK 

ilure — kill TSX 

e#100 i DIE HORRIBLY. . . 

S#60 
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) f 

» i 
i 
i 
I 
I 
I 
t 
t 
f 
I 
I 
( 



TSKMNl - 


— TSX-Plus Keyb 


oard Mod 


PRTGRT - 


— Print 


the log 


on greet 


58 








59 








60 








61 


013542 


105767 


OOOOOOG 


62 


013546 


001415 




63 








64 








65 








66 


013550 






67 


013556 


016705 


0000000 


68 


013562 


004767 


OOOOOOG 


69 


013566 






70 


013574 


004767 


OOOOOOG 


71 


013600 


000441 




72 








73 








74 








75 


013602 


012767 


OOOOOOG 


76 








77 








78 








79 


013610 


005727 


000001 


SO 


013614 


002451 




81 


013616 


012704 


001362' 


82 


013622 


012702 


OOOOOOG 


S3 


013626 


112200 




84 


013630 


005400 




85 


013632 


1 1 0024 




86 


013634 


001374 




87 


013636 


112724 


000200 


88 


013642 






89 








90 








91 








92 


013650 


116700 


OOOOOOG 


93 


013654 


005400 




94 


013656 


120027 


000123 


95 


013662 


001406 




96 


013664 


120027 


000163 


97 


013670 


001403 




98 


013672 






99 


013700 


004767 


OOOOOOG 


100 








101 








102 








103 


013704 






104 


013712 


010105 




105 


013714 


006205 




106 


013716 


004767 


OOOOOOG 


107 


013722 






108 


013730 






109 


013740 


000207 





message 
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Checksum ok* set up site number. 



GRTFIN: TSTB 
BEQ 



PROFLG 
1* 



i ARE WE RUNNING ON A PROFESSIONAL? 
; BR IF NOT 



Print license number on a Professional 



. PRINT 


#TM«LN1 


MOV 


TSXSIT, R5 


CALL 


PRTDEC 


. PRINT 


#CRLF 


CALL 


DAT TIM 


BR 


GRTVIR 



"License # = mmmm-TPS-" 

Get the license number 

Print it 

Terminate the print line 

Print date and time 

Go print line number 



Print license number if not on a professional 



OOOOOOG 1*: 



MOV #TSXLN, TSXSIT ; STORE SITE NUMBER 
If the preceeding range of instructions are altered — 
change the program that assigns micro TSX-Plus license numbers. 

SHOULD WE PRINT DATE AND TIME? 
BR IF NOT 

TEMPORARILY STORE GREETING HERE 
OBTAIN LICENSE TEXT ADDRESS 

21*: MOVE (R2)+, RO ; GET CHARACTER FROM MESSAGE 

DECRIPT CHARACTER 

31*: MOVE RO, <R4)+ i PUT IN TEMP BUFFER 

BR IF MORE OF MESSAGE TEXT 
NO CR/LF FOLLOWING TEXT 
PRINT GREETING MESSAGE 

'5">/ then print license is unsupported. 

OBTAIN THE SUPPORT CODE (SIGN EXTEND) 

DECRIPT THE CHARACTER 

CHECK FOR SUPPORTED LICENSE 

BR IF LICENSE SUPPORTED 

CHECK FOR SUPPORTED LICENSE 

BR IF LICENSE SUPPORTED 

PRINT UNSUPPORTED LICENSE TEXT 

PRINT CURRENT DATE & TIME 



TST 


#GREET-1 


BLT 


GRTEND 


MOV 


#BLKO, R4 


MOV 


#LICTXT, R2 


MOVE 


(R2)+,R0 


NEG 


RO 


MOVE 


RO, <R4)+ 


BNE 


21* 


MOVB 


#200, (R4) + 


. PRINT 


#BLK0 



; If 


not supp 


orted <"S" 


PRTSUP 


: MOVB 


SUPCOD, RO 




NEG 


RO 




CMPB 


RO, #'S 




BEQ 


61* 




CMPB 


RO, #'s 




BEQ 


61* 




. PRINT 


#UNSUP 


61*: 


CALL 


DATTIM 



Print line number. 

GRTVIR: .PRINT #LINNTX 

MOV R1,R5 

ASR R5 

CALL PRTDEC 

.PRINT #CRLF 

. TTYOUT #LF 

GRTEND: RETURN 



i DISPLAY LINE # 
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SETSUF — Set up a start-up command file 



3 

4 

5 

6 

7 

8 

9 013742 010246 
10 013744 010346 
11 
12 
13 

14 013746 004767 
15 
16 
17 

15 013752 012703 

19 013756 032761 

20 013764 

21 013766 

22 0137 72 

23 013776 

24 014002 

25 014004 

26 014006 

27 014014 

28 014020 

29 014022 

30 014026 
31 
32 
33 

34 014030 

35 014032 012602 

36 014034 000207 
37 

38 004340 ' 

Errors detected: 

*** Assembler statistics 



. SBTTL SETSUF — Set up a start-up command file 

Set up a start-up command file for execution by the job. 

Inputs: 
Rl = Job index number 
R2 = Pointer to asciz command file name string. 



SETSUF: MOV 
MOV 



R2, -(SP) 
R3> -(SP) 



OOOOOOG 



0000000 
OOOOOOG OOOOOOG 



001004 

112723 000136 

1 1 2723 000050 

112723 000100 

112223 

001376 

112763 000015 

112723 000012 

105023 

020327 OOOOOOG 

103774 



012603 



Start execution of a new command file 

CALL PUSHCF ; SET UP FOR NEW COMMAND FILE 

Move command file name to buffer 



POINT TO COMMAND FILE BUFFER 

Is this a detached job7' 

Br if yes 

PUT '■'■iQ AT FRONT OF COMMAND 



177777 



63* 
5«: 



6*: 



MOV 


#CFBUF. R3 


BIT 


#*DETCH, LSW<R1) 


BNE 


63« 


MOVB 


#'•"•. (R3) + 


MOVB 


#'(, <R3) + 


MOVB 


#'@, <R3) + 


MOVB 


<R2)+, <R3)+ 


BNE 


5* 


MOVB 


#CR, -KR3) 


MOVB 


#LF> <R3)+ 


CLRB 


<R3) + 


CMP 


R3, #CFEND 


BLO 


6* 


Finished 




MOV 


<SP)+, R3 


MOV 


(SP)+, R2 


RETURN 





iMOVE FILE NAME TO COMMAND AREA 
i LOOP TILL ALL MOVED 
i END LINE WITH CR-LF 

;FILL REST OF BUFFER WITH NULLS 



. END 



START 



Work file reads: 
Work file writes: 
Size of work file: 
Si ze of c ore pool : 
Operating system: 







11288 Words 

18176 Words 

RT-11 



45 Pages) 
71 Pages) 



Elapsed time: 00:01:07.19 

, LP: TSKMNl ==DK: TSKMNl /C/N: SYM 



i 
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*1STLG 


1-79 


29-12 


29-14 






















*CCLRN 


1-94 


12-50 


12-66 


13-16 


13-87 


13-92 


13-96 


24-58 












*CFABT 


1-106 


12-5 


12-63 






















*CFCCL 


1-111 


13-94 
























$CFDCC 


1-111 


12-32 
























*CFKIL 


1-143 


10-29 


12-5 


12-59 




















*CFOPN 


1-116 


13-51 


17-57 






















*CHACT 


1-69 


12-33 
























*CLTST 


1-102 


24-46 
























*CTRLC 


1-105 


10-30 
























*DEBUG 


1-87 


12-26 
























*DEFER 


1-120 


10-173 
























*DETCH 


1-96 


10-171 


30-19 






















*DI130L 


1-79 


24-40 
























*DOOFF 


1-113 


11-26 
























*DUPRN 


i-ios 


11-21 


11-23 






















*ECHO 


1-110 


10-173 
























*INDAB 


1-105 


12-51 
























*INDDF 


1-142 


17-26 


19-53 






















*INDRN 


1-142 


13-16 


13-87 


13-96 


23-21 


23-73 
















*KED 


1-124 


10-119 


24-29 






















*KINIT 


1-65 


10-19 


10-190 






















*LC 


1-110 


10-173 
























*NOIN 


1-69 


13-115 
























*NOINT 


1-102 


12-34 
























*NOVLN 


1-58 


10-79 
























*NOWTT 


1-69 


12-33 


12-38 






















*NTGCC 


1-112 


12-35 
























*PRGLK 


1-95 


13-102 
























fQUIET 


1-121 


13-91 


17-122 


19-62 


24-49 


















*RNIOP 


1-109 


12-26 
























*SETRN 


1-109 


11-18 
























«SLLET 


1-93 


10-135 
























$SNWTT 


1-141 


12-36 
























*SUCF 


1-65 


13-114 


17-47 






















*SYSPS 


1-68 


10-149 
























*TECO 


1-127 


10-117 


24-29 


24-31 




















*UCLCF 


1-117 


10-125 


16-26 






















*UCLCL 


1-119 


10-131 


20-4 






















*UCLCM 


1-119 


10-128 


19-14 






















*UCLRN 


1-118 


13-30 


13-40 


13-98 


20-31 


















*UKMON 


1-94 


14-24 


21-18 






















*UKMRN 


1-94 


13-98 


21-12 






















«VTESC 


1-90 


12-25 
























*WILD 


1-128 


10-141 


24-43 






















. . . VI 


10-92 


10-92 


10-99 


10-99 


10-99 


10-108 


10-108 


10-109 


10- 


-109 


11-19 


11-19 


11-38 




11-39 


11-43 


11-47 


11-49 


11-55 


11-58 


14-9 


14-32 


15- 


-127 


17-43 


17-43 


17-43 




17-65 


17-65 


17-124 


19-33 


19-33 


19-33 


19-43 


19-43 


19- 


-43 


19-55 


19-80 


19-80 




19-80 


20-16 


20-16 


20-16 


21-7 


21-7 


21-7 


23-68 


23- 


-68 


24-55 


24-55 


26-20 




26-27 


26-32 


26-39 


26-58 


27-39 


27-40 


27-41 


29-11 


29- 


-47 


29-66 


29-69 


29-88 




29-98 


29-103 


29-107 


29-108 




















. . . V2 


10-92 


10-92 


10-92# 


10-92# 


10-99 


1 n_oo 

4. v./ / / 


in-99# 


10-99# 


10- 


-108 


10-108 


10-108# 


10-iOS# 




10-109 


10-109# 


11-19 


11-19# 


17-43 


17-43 


17-43# 


17-43# 


17- 


-65 


17-65 


17-65# 


17-65# 




19-33 


19-33 


19~33# 


19~33# 


19-43 


19-43 


19-43# 


19-43# 


19- 


-55 


19-55# 


19-80 


19-80 




19-80# 


i9~ao# 


20-16 


20-16 


20-16# 


20-16# 


21-7 


21-7 


21- 


-7# 


21-7# 


23-68 


23-68 




23-68# 


23-6S# 


24-55 


24-55 


24-55# 


24-55# 
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Cross reference table (CREF V05. 05) 



I 
f 

I 

i 
I 
i 
I 
C 
t 
t 
< 
f 

^ ALCDEV 1-50 7-49« S~49 8-54 S-59 
\ 



\ 






ABl 


1-74 


4-30 




ABIO 


1-75 


4-37 




ABll 


1-75 


4-3S 




ABi2 


1-75 


4-39 




AB13 


1-75 


4-40 




AB14 


1-75 


4-41 




AB15 


1-75 


4-42 




AB16 


1-75 


4-43 




AB2 


1-75 


4-31 




AB3 


1-75 


4-32 




AB4 


1-75 


4-33 




AB5 


1-75 


4-34 




AB6 


1-75 


4-35 




ABCMD 


1-77 


18-17 




ABMl 


1-74 


4-28 




ABM 10 


1-74 


4-21 




ABMll 


1-73 


4-20 




ABM 12 


1-73 


4-19 




ABM13 


1-73 


4-18 




ABM 14 


1-73 


4-17 




ABM 15 


1-73 


4-16 




ABM16 


1-73 


4-15 




ABM 17 


1-73 


4-14 




ABM2 


1-74 


4-27 




ABM20 


1-72 


4-13 




ABM21 


1-72 


4-12 




ABM22 


1-72 


4-11 




ABM23 


1-72 


4-10 




ABM24 


1-72 


4-9 




ABM3 


1-74 


4-26 




ABM4 


1-74 


4-25 




ABM5 


1-74 


4-24 




ABM6 


1-74 


4-23 




ABM7 


1-74 


4-22 




ABRTAD 


1-62 


11-50 


11-59* 


ABRTCD 


1-62 


11-30 


11-60* 


ABRTCF 


1-151 


12-49 


12-65 


ABRTDV 


1-62 


11-56 




ABTMSG 


4-29# 


11-37 




ACRFN 


1-151 


17-13 


19-26 


ADM3A 


1-136 


26-37 




ADM3FL 


1-137 


26-41 




ADM3N0 


1-13S 


26-40 




AFCF 


1-59 


25-28* 




ALCDEV 


1-50 


7-49« 


8-49 


ALCERR 


1-72 


4-7 




ALDBLK 


1-168 


7-27# 




ALDEMT 


1-50 


8-48# 




ALDEX 


1-168 


7-26# 




ALFN 


1-177 






AMBOPT 


1-159 






ASDEX 


1-156 


7-2# 




ASKLNM 


1-155 


7-38# 




AUTHFN 


1-172 


7-2S# 




BADCMD 


1-155 


19-78 


19-85* 


BELL 


2-16# 







13-20 



19-73 
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Cross reference table <CREF V05. 05) 



BLANK 


2-15# 


12-22 








BLKO 


1-154 

29-es 


9-5# 


9-6 


9- 


-7 


BLKWDS 


2-20# 










BOTEMT 


1-47 


S-108# 








C*DIBL 


2-3 1# 


24-42 








C*K52 


2-30# 


24-39 








C*KED 


2-29# 


24-37 








C*QUIT 


2-27# 


24-51 








C*TECO 


2-25# 


24-33 








C*TEST 


2-28# 


24-4S 








C$WILD 


2-26# 


24-45 








CALUCL 


1-164 


16-14 


16-30 


19- 


-20 


CALUKM 


14-28 


21-5# 








CBFEND 


9-2# 


15-103 








CCLNAM 


1-175 


7-30# 


24-56 






CCLSAV 


1-100 


24-55 








CD*$SZ 


1-114 


8-66 


8-75 






CDBUF 


1-50 


8-67 


8-76 


9- 


-8# 


CDGADR 


1-53 


S-65# 








CDGEMT 


1-53 


e-63# 








CDPADR 


1-53 


8-74# 








CDPEMT 


1-53 


8-72# 








CFBUF 


1-100 


13-^33 


13-67 


17- 


-65 


CFCHAN 


1-120 


17-43 


17-43 


17- 


-65 


CFEND 


1-100 


17-70 


30-29 






CFIND 


1-113 


19-51 








CFJMP 


17-113 


17-115 


17-132# 






CFOPEN 


17-45 


17-56# 
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1-121 


13-112 


14-26 


17- 


-70* 
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17-66 
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CHKTTD 
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17-39 


19-29 
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-77 
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1-132 
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-34 


CINFLG 


1-62 
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12-7* 


12- 


-9 


CKLK 
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CKPASL 


12-73 


13-5# 








CKSF2 


13-103 


13-110# 
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1-85 
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CMDALC 


1-83 
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1-83 


6-4S 








CMDBOT 


1-85 


6-83 
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9-l# 
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15- 
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i-148 


6-49 


6-50 




CMDDSP 


1-83 


6-42 






CMDEND 


7-4S# 


13-39* 


15-111* 




CMDFMT 


1-82 


6-33 






CMDFRM 


1-148 


6-32 






CMDHD 


1-68 


6-8# 


18-10 




CMDIND 


6-53 


22-6# 






CMDINI 


1-85 


6-71 






CMDINS 


1-78 


6-79 






CMDKIL 


1-84 


6-64 






CMDMEM 


1-84 


6-57 






CMDMNT 


1-82 


6-39 






CMDMON 


1-82 


6-40 






CMDNAC 


1-85 


6-69 






CMDOFF 


1-104 


6-44 


6-45 


6-46 


CMDPAU 


1-84 


6-65 






CMDRCL 


1-84 


6-66 






CMDREM 


1-83 


6-12 






CMDRSM 


1-66 


6-13 






CMDRST 


1-81 


6-14 






CMDRSY 


1-81 


6-9 






CMDRUN 


1-81 


6-10 






CMDSET 


1-81 


6-21 






CMDSHO 


1-81 


6-20 






CMDSHT 


1-86 


6-85 






CMDSND 


1-81 


6-22 






CMDSPN 


1-66 


6-Sl 






CMDSPO 


1-84 


6-62 






CMDSQZ 


1-85 


6-72 






CMDTIM 


1-82 


6-38 






CMDUSE 


1-85 


6-70 






CMDWHO 


1-82 


6-24 


6-25 




CMDYEL 


1-80 


6-23 






COLEQL 


9-2 1# 


15-11* 


15-51 


15-60 


CORUSR 


1-63 
23-20 


10-6 
23-72 


14-6 


14-13 


CPUAH 


1-164 


7-44# 






CPUAL 


1-164 


7-4 5# 






CPYCXT 


8-35# 


28-17* 


28-18* 


28-19 


CPYPRN 


10-186 


28-5# 






CR 


2-14# 


13-71 


29-42 


30-26 


CRLF 


1-162 


11-58 


14-9 


27-39 


CSIMSl 


1-161 


3-B 






CSIMS2 


1-159 


3-a 






CSIMS3 


1-176 


3-8 






CSiriS4 


1-174 


3-8 






DATTIM 


1-148 


29-70 


29-99 




DELWIN 


8-165# 


12-17 






DETARG 


1-178 


8-15# 






DEVUNT 


1-160 


7-37# 






DFJMEM 


1-65 


10-44 






Dl ABFL 


1-121 


26-66 






DIABLO 


1-135 


26-63 






DIABNO 


1-122 
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7-3# 
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EXCJOB 

FF 

FILERM 
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GRTINI 
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HANIDX 

HAZEL 
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IiN$CNT 


1-142 


14-'18 






















INBUF 


9-7# 


14-32 


15-13 


15-127 


17-124 
















INDABT 


1-149 


12-53 


12-61 




















INDACT 


1-153 


23-16 






















INDCMD 


16-8 


16-19 


17-6# 




















INDERR 


1-106 


12-46* 


23-61* 


23-71* 


















INDINI 


17-34 


19-58 


22-30 


23-10# 


















INDNAM 


7~31# 


23-69 






















INDRFL 


7-39# 
17-112 


15-7* 
17-128* 


15-66 
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15-79 
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1 5-96 
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16-7 


16-18 


17-7 


17-19 


INDRUN 


14-19 
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INDSAV 


1-142 


17-23 


22-10 
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1-106 


14-14 


17-30 


23-14 


23-62* 
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1-45 
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1-45 


S-SO# 
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1-45 
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INPEMT 


1-45 
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17-61 
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1-60 
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1-61 
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1-61 
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1-71 
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6-69 


6-69# 


6-70 


6-70# 


6-71 
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6-72 
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6-73 


6- 


-73* 


6-74 


6- 


-74# 






6-75 


6-75# 


6-76 


6~76# 


6-77 


6-77# 
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6-79 
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-79# 


6-80 
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-so# 






6-81 
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6-82 


6-82# 


6-83 


6-S3# 


6-84 


6-S4# 


6-85 
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-S5# 










LA120 

LA12FL 

LA12N0 


1-135 
1-136 
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26-52 
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1-135 
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1-47 
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1-71 
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LOGCHN 
LPARNT 


1-77 
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11-49 

8-132 
10-210 


28-11 


























LPRGl 
LPRG2 
LPROG 
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LRBFIL 

LRDTIM 


1-97 
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28-40 
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LSECPT 
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1-96 
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1-94 
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1-108 
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28-48 
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LSW4 


1-123 


12-24* 


12-32* 


13-51 


13-91* 
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17-57* 


17-121 


17-123* 
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-127* 


19-62* 


24- 


-49 




LSW5 


1-95 


10-117* 


10-119* 


10-141* 


12-25* 


12-33* 


12-38* 


12-50* 
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-16 
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1-143 
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-98* 


14-24 
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19-14 
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28-68* 
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LTSCMD 
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13-114* 


17-47 


29-73 


28-75* 


28-76* 














LUNAME 


1-97 


10-36 


28-35 


28-36 
























LWINDO 


1-66 


27-21 



























I 
< 

i 
{ 
I 
C 

< 

1 

I 
< 
I 



t 
i 

I 



TSKMNl — TSX-Plus Keyboard Mon MACRO V05. 05 
Cross reference table (CREF V05. 05) 



Thursday 19-Jan-89 09:05 Page S-8 



MAKWIN 


8-i52# 


27-23 






MAPWIN 


8-160# 


27-28 






MAXMEM 


1-64 


10-48* 






MAXPRI 


1-64 


10-51 






MDT 


1-8 


1-88 






MINTIM 


1-101 


10-28 






MISUCL 


1-77 


20-37 






MNBASE 


1-167 


8-171# 






MNBPC 


1-166 


8-173# 






MNFLGS 


1-166 


8-174# 






MNTARG 


1-174 


8-25# 


10-156 




HNTDEV 


1-156 


7-47# 


8-26 


8-31 


MNTOP 


1-167 


8-1 72# 






MONAR 1 


1-167 


8-170# 






M0NAR2 


1-167 


S-178# 






MONTXT 


1-76 


11-38 






MSGBUF 


1-170 


8-42 


S-43# 




MSGEND 


1-170 


S-44# 






MSTALC 


1-72 


4-6 






MXJPRI 


1-144 


10-51* 






MXPRMT 


1-130 


23-89 






NAMTOP 


1-133 


10-49 






NARGS 


6-S# 


6-9 


6-9 


6-10 




6-14 


6-15 


6-15 


6-16 




6-20 


6-21 


6-21 


6-22 




6-26 


6-27 


6-27 


6-28 




6-32 


6-33 


6-33 


6-34 




6-38 


6-39 


6-39 


6-40 




6-44 


6-45 


6-45 


6-46 




6-50 


6-51 


6-51 


6-52 




6-56 


6-57 


6-57 


6-58 




6-62 


6-63 


6-63 


6-64 




6-68 


6-69 


6-69 


6-70 




6-74 


6-75 


6-75 


6-76 




6-80 


6-81 


6-81 


6-82 


NEWCMD 


13-111 


13-113 


14-5# 




NOABRT 


11-31 


12-4# 






NOCF 


1-77 


17-49 


17-52 




NOCIN 


1-155 


12-10 


12-17# 




NOCMD 


18-16 


19-13# 






NOFLAG 


1-157 


9-18# 






NOICMD 


17-40 


17-52# 






NOIND 


1-161 


17-25 


22-12 




NOUCL 


9-22# 


13-43* 


15-12* 


16-32* 


NSPLDV 


1-119 


10-90 






NUMPRM 


1-77 


17-134 






OCTPRT 


1-176 


11-51 






OFFEMT 


1-172 


8-96# 






OKFAND 


1-139 


10-66* 






OKFEND 


1-102 


10-67 






OKFILE 


1-102 


10-66 






OKFNND 


1-139 


10-67* 






OPRCMD 


1-84 


6-61 






OVLYEQ 


1-176 


11-55 






P2*VIR 


1-58 


10-81 






PASLIN 


1-128 


12-8 


13-5 


13-41 



6- 


-10 


6- 


-16 


6- 


-22 


6- 


-28 


6- 


-34 


6- 


-40 


6- 


-46 


6- 


-52 


6- 


-58 


6- 


-64 


6- 


-70 


6- 


-76 


6- 


-82 



19-16 



6-11 
6-17 
6-23 
6-29 
6-35 
6-41 
6-47 
6-53 
6-59 
6-65 
6-71 
6-77 
Q— 83 



20-6 



6-11 
6-17 
6-23 
6-29 
6-35 
6-41 
6-47 
6-53 
6-59 
6-65 
6-71 
6-77 
6-83 



6- 
6- 
6- 
6- 
6- 



12 
IS 
24 
30 
36 
6-42 
6-48 
6-54 
6-60 
6-66 
6-72 
6-78 
6-84 



6-12 
6-18 
6-24 
6-30 
6-36 
6-42 
6-48 
6-54 
6-60 
6-66 
6-72 
6-78 
6-84 



6-13 
6-19 
6-25 
6-31 
6-37 
6-43 
6-49 
6-55 
6-61 
6-67 
6-73 
6-79 
6-85 



6-13 
6-19 
6-25 
6-31 
6-37 
6-43 
6-49 
6-55 
6-61 
6-67 
6-73 
6-79 
6-85 



6-14 
6-20 
6-26 
6-32 
6-38 
6-44 
6-50 
6-56 
6-62 
6-68 
6-74 
6-80 



i 

I 
f 

I 

i 

i 



I 
€ 

t 

* 

< 
i 
i 



4 
I 



13-65 



13-97 



TSKMNl ■ 


— TSX-Pl 


us Keyboard 


Mon MACRO 


Cross reference 


table (CREF 


V05. 05) 


PBFEND 


1-U6 


17-103» 




PBUFND 


1-48 


9-17# 




PLOAD 


1-148 


20-33 


21-14 


POPCF 


1-122 


17-51 


19-56 


PRGALL 


1-148 


11-16 


11-24 


PRIEMT 


8-147# 


28-25 




PRIVAO 


1-70 


10-71* 




PRIVA2 


1-58 


10-82* 




PRIVCO 


1-70 


10-74* 


10-85* 


PRIVFO 


1-60 


10-73* 


10-84* 


PRIVSO 


1-70 


10-72* 




PRIVS2 


1-50 


10-83* 




PRMBUF 


1-126 


17-87 




PRMEND 


1-126 


17-95 




PRMPNT 


1-125 


17-86 




PROFLG 


1-86 


29-34 


29-61 


PRSCMD 


15-6# 






PRTBUF 


1-165 


9-16# 




PRTDEC 


1-160 


29-68 


29-106 


PRTGRT 


1-46 


10-181 


29-7# 


PRTR50 


1-177 


11-57 




PRTSUP 


29-92# 






PTL 


17-96 


17-136# 




PUSHCF 


1-152 


13-57 


17-41 


PVNPW 


1-70 


10-68 


25-23 


QUME 


1-135 


26-63 




QUOTFL 


7~40# 


15-8* 


15-31 


R50BUF 


1-156 


7-43# 




R50CDM 


1-153 


7-24# 




R50DIR 


1-152 


7-15# 




R50DK 


1-177 


7-7# 




R50DSK 


1-158 


7-10# 




R50DUP 


1-153 


7-16# 




R50IND 


1-152 


7-17# 




R50K52 


1-153 


7-12# 




R50KED 


1-153 


7-1 1# 




R50KEX 


1-153 


7-13# 




R50KMN 


1-62 


7-33# 


11-6 


R50LD 


1-158 


7-2 1# 




R SOLDO 


1-156 


7-22# 




R50LD7 


1-158 


7-23# 




R SOLDO 


1-162 


7-9# 




R50M0N 


1-178 


3-7# 




R50N0 


1-159 


7-35# 




R50PIP 


1-153 


7-14# 




R50SAV 


1-152 


7-25# 




R50SY 


1-152 


7-8# 


10-155 


R50TSX 


1-149 


7-lS# 




R50TT 


1-174 


7-6# 




R50UCL 


1-149 


7-19# 




R50VIR 


1-154 


7-20# 




RDCMD 


1-150 


6-77 


6-78 


RDERM 


1-154 


4-36 




RDREST 


17-77 


17-112# 




REGEN 


1-76 


10-27 




REMNDR 


1-49 


3-6# 
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23-76 24-60 

19-67 

12-58 



25-24* 25-25* 



19-31 30-14 



15-33* 15-35 15-41* 



11-7 



19-41 



6-82 14-8 14-13# 15-114 17-15 17-132 19-75 22-24 * 
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Cross reference table (CREF V05. 05) 



RESDtv 1-13V lu-OD* 

RJEMT 1-131 e-126# 

RSTPRV 1-71 10-86 11-20 



RUNARG 1-70 11-12« 



I 

RUNCHN 1-67 11-19 11-19 19-80 19-80 20-16 20-16 21-7 21-7 23-68 23-68 24-55 

24-55 

RUNEMT 1-154 8-4# 

RUNNAM i-67 23-64 

SBPSUF 1-61 10-199 28-109 

SC*ERR 1-58 10-59 

SCHAIN 1-120 12-8 13-5 13-18 13-41 13-65 13--89 13-97 

SCNCMD 15-13# 15-128 17-131 

SEARCH 1-150 18-12 

SERFLG 1-63 11-11* 17-42« 17~44# 19-32* 19-34* 19-42* 19-44* 19-79* 19-81* 

SETSUF 10-202 13-117 30-9# 

SIZEMT 1-174 8-20# 

SIZVAL 1-155 S-21# 

SJEMT 1-131 8-120# 

SKPSPC 1-60 22-17 

SMONHD 1-72 12-72 

SPGEMT 1-169 8-9# 

SPLCHN 1-99 10-92 

SPLHLA 1-163 8-132# 

SPUBUF 1-66 10-50 

START 1-48 8-110 10-5# 30-38 

STDNAM 1-76 10-54 

STRLEN 1-77 17-136 

SUCF2 1-58 13-110 13-116 13-118* 

sues 1-133 29-53 

SUMS 1-133 29-22 

SUP COD 1-133 29-92 

SXBPNT 1-66 10-50* 

SYINTX 9-24# 23-33 

SYSAV 1-150 7-4# 19-72 23-63 

SYTXT 9-23# 19-50 

TAB 2-17# 15-18 15-117 24-14 

TALEMT 1-50 S-58# 

TECO 1-79 10-115 

TM*LN1 1-78 29-66 

TOMPRM 17-89 17-134# 

TOOLNG 1-77 13-66 

TRGRET 1-133 29-38 

TRMINI 10-161 26-9# 

TRYUCL 19-82 20-4# 

TSKMNl 1-11# 1-51 

TSKMON 1-10# 1-46 1-51 

TSXLN 1-133 29-75 

TSXSIT 1-133 29-67 29-75* 

UC*MDC 1-147 10-107* 

UC$NDC 1-147 10-106* 

UCHAN 1-111 11-13 11-15* 

UCIDEF 1-52 3-4# 

UCISPC 1-91 21-6 28-102 

UCLBLK 1-146 10-97 16~11 16-28 19-18 

UCLCMD 1-85 6-75 

UCLDAT 1-146 10-99 



i 
I 
t 
I 
I 
( 
( 



f 

TSKMNl — TSX-Plus Keyboard Mon MACRO V05. 05 Thursday 19-Jan-89 09:05 Page S-11 



Cross reference table <CREF V05. 05) 



i 

i 
i 



UCLNAM 


1-115 


20-16 


20-28 








UERSEV 


1-128 


11-35* 


12-46 


12- 


-47 


12-54* 


UFORM 


1-105 


10-55 


28-95 








UFPTRP 


1-117 


11 -9« 










UHIMEM 


1-107 


10-49* 










UNSUP 


1-78 


29-98 










UPPN 


1-97 


28-42* 


28-43* 








URCMD 


1-78 


20-41 










URERR 


20-5 


20-7 


20-12 


20- 


-41# 




USPLCH 


1-99 


10-92 


10-92 








UTRPAD 


1-64 


11-8* 










VEDIT 


1-69 


10-113 


10 115 








VIRINI 


10-167 


27-10# 










VTIOO 


1-135 


26-16 










VTIOFL 


1-137 


26-19 










vTiONO 


1-137 


26-13 










VT2007 


1-140 


26-23 










VT2008 


1-140 


26-23 










VT20FL 


1-140 


26-26 










VT20N0 


1-140 


26-25 










VT52 


1-135 


24-35 


26-30 








VT52FL 


1-136 


26-34 










VT52N0 


1-122 


26-33 










VU*CL 


1-115 


20-11 










VUCLMC 


1-116 


10-107 










VUCLDR 


1-117 


10-123 


10-126 


10- 


-129 




WILDFL 


1-69 


10-139 










XAREA 


1-151 
23-68 


7-42# 
24-55 


10-92 


10- 


-99 


10-108 


YELEMT 


1-171 


8-40# 
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. . , CMO 


14-32 


14-32 


14-32 


14-32 


15-127 


15-127 


15-127 


15-127 


17-124 


17-124 


17-124 


17-124 


. . . CMl 


10-92 


10-99 


10-108 


17-43 


17-65 


19-33 


19-43 


19-80 


20-16 


21-7 


23-68 


24-55 


. . . CM2 


10-92 


10-99 


10-99 


10-108 


10-108 


10-108 


10-108 


17-43 


17-43 


17-65 


17-65 


17-65 




17-65 


19-33 


19-33 


19-43 


19-43 


19-80 


19-80 


20-16 


20-16 


21-7 


21-7 


23-68 




24-55 
























. . . CMS 


10-109 


11-19 


19-55 




















. . . CM5 


10-92 


10-99 


10-108 


11-38 


11-39 


11-43 


11-47 


11-49 


11-55 


11-58 


14-9 


17-43 




17-65 


19-33 


19-43 


19-80 


20-16 


21-7 


23-68 


24-55 


26-20 


26-27 


26-32 


26-39 




26-58 


27-39 


27-40 


27-41 


29-11 


29-47 


29-66 


29-69 


29-88 


29-98 


29-103 


29-107 




29-108 
























CM7 


10-108 


17-65 






















, CLOSE 


l-39# 


10-109 


11-19 




















. CSIGE 


i-37# 
























. CSISP 


l-35# 
























. DATE 


l-38# 
























. ENTER 


l-40# 
























, EXIT 


l-40# 
























. FPROT 


1-41# 
























. GTIM 


l-38# 
























. OTLIN 


l-38# 


14-32 


15-127 


17-124 


















. GVAL 


1-41# 
























. HERR 


1-41# 
























. LOOKU 


l-39# 


10-99 


17-43 


19-33 


19-43 


19-80 


20-16 


21-7 










. PRINT 


l-39# 


11-38 


1 1 -39 


11-43 


11-47 


11-49 


11-55 


11-58 


14-9 


26-20 


26-27 


26-32 




26-39 


26-58 


27-39 


29-11 


29-47 


29-66 


29-69 


29-88 


29-98 


29-103 


29-107 




. PURGE 


l-36# 


19-55 






















. PVAL 


1-41# 
























. READW 


l-36# 


17-65 






















. REOPE 


l-37# 


10-92 


23-68 


24-55 


















. SAVES 


l-37# 
























. SERR 


1-41# 
























. SRESE 


l-35# 
























. TTOUT 


l-35# 
























. TTYIN 


l-36# 
























. TTYOU 


l-36# 


27-40 


27-41 


29-108 


















. WRITW 


l-40# 


10-108 






















CMDDEF 


5-38# 


6-9 


6-10 


6-11 


6-12 


6-13 


6-14 


6-15 


6-16 


6-17 


6-18 


6-19 




6-20 


6-21 


6-22 


6-23 


6-24 


6-25 


6-26 


6-27 


6-28 


6-29 


6-30 


6-31 




6-32 


6-33 


6-34 


6-35 


6-36 


6-37 


6-38 


6-39 


6-40 


6-41 


6-42 


6-43 




6-44 


6-45 


6-46 


6-47 


6-48 


6-49 


6-50 


6-51 


6-52 


6-53 


6-54 


6-55 




6-56 


6-57 


6-58 


6-59 


6-60 


6-61 


6-62 


6-63 


6-64 


6-65 


6-66 


6-67 




6-68 


6-69 


6-70 


6-71 


6-72 


6-73 


6-74 


6-75 


6-76 


6-77 


6-78 


6-79 




6-80 


6-81 


6-82 


6-83 


6-84 


6-85 














FAB OR T 


5-16# 
21-19 


13-66 
22-12 


15-105 
23-16 


16-13 


17-25 


17-52 


17-134 


17-136 


18-17 


19-85 


20-37 


20-41 


FERR 


5-5# 


10-27 


17-49 




















TBLDEF 


5-26# 


6-8 






















TBLEND 


5-52# 


6-86 
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